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SPECIAL NOTE 

To write an adventure program, you need 
to know a bit about the language BASIC. 
You can still have fun with this book, 
though, without knowing any BASIC, by 
typing in and playing the game Ha unfed 
House which was written specially for it. If 
you want to learn or improve your BASIC, 
there are two Usbome books to help you: 
Introduction to Computer Programming 



About this book 

Writing an adventure game from scratch is 
quite a daunting task, especially if you are 
new to computer programming. This book 
allows you to start as gently as you like by 
giving you an adventure listing which you 
can type in and play, change and add to as 
much as you like, or use as a skeleton 
program for your very own adventure story. 

The game written for this book is called 
Haunted House and you will find the main 
listing for it on pages 33-38. This will work 
on any computer which uses Microsoft- 
style BASIC, including BBC, Dragon, Oric, 
TRS-80 and expanded VIC 20, and has 
changes to make it work on a 48K Spectrum 
(Timex 2000), A special ZX81 (Timex 1000) 
version of the game is listed on pages 39-45. 
Turn straight to these pages if you want to 
play the game before you find out how it 
works. It is a specially good idea to do this if 
you've never played an adventure game . 





If you are used to looking at program 
listings, you will probably pick up a few 
clues about how the game works as you 
type it in. To avoid this , you could try to 
persuade someone else to type it in for you. 

As the program is so long and 
complicated, you will need to type it in 
extremely carefully. It is worth typing 
slowly and checking each line as you go, as 
fou only need do it once. You can save the 
Drogram on tape for when you want to play 
fit again or produce an adapted version. 




On pages 6- 15, you will find out how to 
plan an adventure and on pages 16-27 how 
to structure and write the program for it. 
You may find this section quite difficult. 
Don't worry if you do, just work through 
each bit slowly and carefully until you feel 
you have grasped the ideas in it, then go on 
to the next bit. 

As you work through these pages it is a 
good idea to write a practice game of your 
own, following each step carefully. Don't 
worry if it isn't a specially good game; it will 
help you to understand how the program 
works and see the problems you need to 
solve in order to write an adventure. A good 
adventure needs careful planning to make 
it interesting and exciting to play. 
Remember, you don't need to touch your 
computer until you have planned your 
game down to the last detail. 

You will find some extra tips and hints on 
adventure writing on page 46, and on page 
47 there are answers to the puzzles set in the 
book. 

After playing Ha tin ted House a few 
times, you will probably want to make 
changes to it. Pages 28-3 1 give you some 
ideas for producing your own version. 



What are the rules? 

If you have played an adventure game 
before you will know what to expect 
from Ha un ted House. If you haven't, all 
you need to know is that the computer 
will ask you what you want to do and you 
tell it , using not more than two words. 

It is a good idea to pick up anything on 
the way that looks valuable or useful and 
to try using these things in any way you 
can think of to solve the problems you 
encounter. Type SCORE to find out how 
many points you have and if you have 
won. 





What is an adventure game? 



An adventure game is like a story in which 
the player is the hero. Unlike a book, where 
the sequence of events is fixed, an 
adventure game is different each time it is 
played because the player chooses what 
happens at each stage. By giving the 
computer instructions in response to 
descriptions which appear on the screen, 
the player goes on a dangerous journey into 
an unknown land. The aim is to survive 
whatever dangers may arise and return 
with treasures. 

The first adventure game was written in 
1976 on a mainframe computer at Stanford 
University in the U,S. A. by William 
Crowther and Don Woods. It is often 
referred to as Colossal Ca ve, Colossal or 
just A d venture, and a version of it is now 
available for most home computers. It was 
written in the scientific computer language, 
Fortran, which, unlike BASIC, cannot 
handle words. All the dataforthe game 
had to be indexed and stored on disc. 

The first people to play adventures were 
computer professionals, as home 
computers did not exist. A version of 
Crowther & Woods' adventure is still 
included with most large business 
computer systems to show people who are 
not used to computers that they can be 
"friendly". These disc-based adventures 
oft en occupy more than 250K and are very 
complicated to play. 

Micro adventures 



The term "adventure" is now used to 
describe a wide range of different games. 
The game in this book is a traditional text 
adventure based on the Crowther & Woods 
type of game. The player takes the leading 
role in the story, but he is not given a set of 
attributes as in role-playing games. The 
player uses his own intelligence, cunning, 
and so on, not those of a character assigned 
to him at the beginning of the game. Like 
chess, traditional adventures are "mind" 
games, involving puzzle-solving rather than 
quick reactions or chance. 

Graphics adventures 

The original adventure did not use any 
graphics, relying instead on the player's 
imagination to conjure up the monsters and 
other terrors that make up the game. Some 
people think that a game with graphics is 
not a true adventure, though there are some 
very good graphics adventures now 
available for micros. If you have sufficient 
memory, you could add graphics routines 
to your adventures or to the Haunted House 
program in this book. This book does not 
explain how to do this because 
graphics instructions vary so much 
from computer to computer. 




There have been many adventures since 
this first one. Perhaps the most famous are 
those written by Scott Adams, an American 
programmer who was the first to produce a 
version of Adven t ure for a small micro. This 
was Adventure Land for the TRS-80. Other 
Scott Adams' adventures to look out for are: 
Pirate Adventure, The Count axidPyramid 
of Doom. 




What kind of program is it? 

An adventure program is really a kind of 
database. A database is a computer filing 
system which stores information and 
allows it to be called up in a variety of 
different ways, and it can have all kinds 
of serious uses. An adventure program is 
an "interactive" database. The player 
moves through it, altering or "updating" 
information as he does so. As you work 
through the book, you will see how 
particular words are used as "keys" to 
unlock certain items of information. This 
technique can be used to restrict access 
to certain information in a "serious" 
database. 

You can learn some useful 
programming techniques by writing an 
adventure. As the program is such a 
complicated one, it shows how important 
it is to plan it in detail before switching on 
your computer. It also makes you think of 
all the things a person using the program 
might try to do. If you work out a way of 
making the computer deal with any 
input, however silly, you will be able to 
write programs which don't crash. 

Many of the adventures you can buy 
on cassette are written, at least partly, in 
machine code. This allows more 
information to be packed into the 
computer and makes the game run 
faster. If you know a bit about machine 
code, you could experiment with adding 
machine code routines to your 
adventures. 





PLANNING A GAME 



Whereto start 



When you write an adventure game you are 
inventing a fantasy world where you make 
up all the rules. You decide where it is, what 
sort of creatures and things live there and 
what these creatures and things can and 
cannot do. Your world can be an alien city, 
l for instance, or an underground palace 



where elves, wizards and trolls live or a 
mysterious castle which is the home of 
dragons and other strange monsters. It 
could even be a time in the past involving 
actual historical people and facts. 

Many adventures use magic of some 
kind. You can decide how closely your 
world sticks to the rules of the real world 
i and how much magic is allowed. Whatever 
you choose to do, try to make sure the rules 
are logical or players will find the game silly 
and frustrating. 

Having decided on a theme for your 
adventure world, you then need to decide 
on the point of your game. The player might 
have to escape, or return to a certain place, 
with treasures, or he might have to rescue 
someone, or find a secret place and do 
something there (such as defusing the Mad 
Scientist's Evil Device for Blowing up the 
World). 

Working out the locations 

The areas or rooms through which the 
player moves during an adventure are 
called locations. Later in the book, you will 
see how these are numbered to put them in 
the computer. For the moment, you need to 
remember that the number of locations you 
can have depends on the amount of 
memory your computer has. More locations 
can make the game more interesting, but 
leave you less memory space for 
descriptions of them all. The game in this 



book has 64 locations with short 
descriptions. 

A location can be indoors or out and 
could be a room, a cave, halfway along a 
passage, an area of forest, the middle of a 
field, or anywhere else you like. It is best to 
decide on the number of locations early on 
and stick to it, as this affects the whole 
structure of the game. 

Making a map 

The next stage is to draw a rough sketch 
map of your world. It need not be accurate - 
to the last detail but should show the overall 
scale. While you are doing this, think of 
some ideas for good hiding places for 
treasures and other objects that the 
adventurer will need. 

Here is a rough sketch map for the 
Haun ted House adventure written for this 
book. 




^ « Backdoor 





Kitchen 



Spiral | 
staircase 1 



Dork hall 
Locked door 




Ha un fed House is set in a weird house 
standing on the edge of a sheer cliff . Its 
strange twisted turrets loom out of an 
always gloomy sky. No wall seems straight, 
no corner a right-angle. Not surprisingly no 
one lives there - well no human that is . . . 

People say the richest man in the world 
spent his last days there. Strangely, no one 
ever saw his body . . . 




Ideas for themes 

If you're stuck for an idea for your 
adventure game, think of films or TV 
programmes you have seen or books 
you have read. Remember, though, if you 
are writing a game to sell, you must not 
stick too closely to the plot or use the 
same names for copyright reasons. 

Here are some ideas for adventure 
themes. 

DETECTIVE STORY - the player is a 
detective investigating a terrible crime. 
The object of the game is to get back to 
police headquarters with all the 
evidence. (The items of evidence are the 
"treasures".) 

PREHISTORIC ADVENTURE - the 
player has travelled through time to the 
days of cavemen. The object is to return 
to the present with The Stone, an object 
of immense power. The adventurer has 
to make his own weapons and anything 
else he needs, just as the cavemen do. 
Prehistoric beasts and cave magic are 
among the obstacles. 

TEMPLE TERROR - the ancient ruins of a 
temple built by a mysterious, long-lost 
race are reputed to contain the secret of 
eternal life. Just hearing about the things 
that are said to have happened there 
makes your hair stand on end. The object 
is to escape with the secret. 



PLANNING AGAME 



Drawing a grid 



The first stage in turning your adventure 
world into a computer game is to transfer 
your sketch map to a squared up grid. You 
need one square for each location, so for its 
64 locations, the Ha un ted House game 
needs an 8 x 8 grid. 

This grid will become the master plan for 
your adventure, so make it as large and 
clear as possible. Eventually it will show all 
the locations and the ways in and out of 
them, and all the treasures and objects usedV 
in the game. 

Number each location, starting in the top 
left-hand comer. Most computers start 
counting at zero, so use zero as your first 
location number. 



Working out the routes 

Mark the exits from each location on your 
grid, likethis. 

Notice that some locations on this grid 
have one-way routes, so the player cannot 
return the way he has come. Make sure 
there are reasons for these if you use them 
in your adventure, even if the reasons are 
magic. In Ha un ted House the front door 
slams and locks behind the player once he 
has entered, so he cannot go out again. The 
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You may want to change the position of 
walls and doorways when you work out the 
routes the player can take, so start by 
pencilling your map lightly onto the grid. 
Label each location with a short 
description, eg "dark cellar" or "dusty 
room" and then think about the ways in and 
out of each location. The usual way of 
marking these is to use points of the 
compass - north being towards the top of 
the page, south down, east to the right and 
west to the left. 

By including staircases, ladders or 
trapdoors in your descriptions, you can use 
up and down for some of your routes 
instead of compass points. This makes the 
game more interesting without the need for 
a real 3D grid. 
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marsh at locations 53 and 54 is also a one- 
way route, because the boat gets stuck. 
How many one-way routes can you think of? 

When you have settled on your routes, ink 
in the walls and staircases to fit in with them 
and make a chart, like the one on the right, 
listing the location number, its description 
(this need not be your final version) and 
its exits. You will find this helps enormously 
when you start writing the program. 
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To help you see how the information fits into 
the program, you could complete this chart 
using the map on pages 14-15 and check it 
against the listing on page 37. 



3D games 



It is possible to construct real 3D 
adventures which are set on several 
levels like the storeys of a house. To do 
this you need two or more interlocking 
grids. Such games need a lot of memory 
(48K is probably the minimum to make it 
worthwhile) and can get very 
complicated to write. 



PLANNING A GAME 

Hiding the treasure 

Having mapped out your adventure world, 
you need to come back to thinking about 
what the player has to do in it. In many 
adventures, the player has to find valuable 
objects of some kind and take them 
somewhere. These could be "real" 
treasures, like gold and jewels, or they 
could be something like secret plans and 
documents, oritemsofevidencetohelp 
solve a crime. If the purpose of your game is 
to rescue someone, then count this as 
having one "treasure". 




10 



You can have general 
obstacles and traps in your 
game too; they don't all have 
to be linked to a particular 
tre asure .Haunted Ho use 
has a marsh for instance. 



Adding "props" 

You need to decide what treasures to have 
and where to hide them. Hiding the 
treasures will probably involve including 
some "props" in your plan. These are 
pieces of furniture, carpets, items of 
clothing and so on which the player can 
open or examine, but which cannot be 
taken away from the location in which they 
are found. HauntedHouse has a coffin as 
one of its props. 



Setting problems for the player 

Next you must think about the problems the 
player will have to solve in order to find and 
carry away the treasures. The cleverer and 
more original the problems you invent for 
the player, the more interesting the game 
wiE be to play. The solutions to many of the 
problems will involve other objects which 
the player must find and then use in the right 
way. You will find out about "useful" objects 
over the page. 

Make a list of your valuable objects and 
number them, starting with 1 this time. (You 
will find out why on page 16.) List the 
objects in order of value as this wiU be 
useful later on for setting up the scoring 
system. This is the start of the list of words 
you want your computer to recognize. 

Make a note of the obstacles to getting 
each treasure too. You might have a 
monster guard, for example, or a mad axe- 
wielding troll. Treasures might be in locked 
drawers, or in safes. They may prove 
impossible to carry without a container of 
some kind which is hidden elsewhere. On 
the left are some puzzles you can think 
about. 
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Some ideas to think about 

Can you think of some "treasures" to fit 
with these game settings? 

1 . The headquarters of an international 
crime syndicate. 



2. A distant planet which is known to be 
more technologically advanced than 
Earth. 

3. A secret scientific research 
establishment. 

Now can you think of some good 
obstacles to getting them? 





6. Bag of gold coins 

You need a light. 



5. Ancient scroll 

Guarded by bats. 
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3. Book of magic 
spells 

Hidden in secret 
room behind false 
wall. 
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7. Ebony statue 

You need a light. 
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2. Diamond ring 

Hidden in 
coffin. 
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[4. Jewelled 
goblet 

Guarded by paralysing 
spirits and locked 
door. 



lark your "treasures" on your master plan, 
using the numbers assigned to them on your 
list. Then write the number of the location 
next to the object on your list too. (You can 
only have one object in each location.) 





Detective game puzzle 

In this game the valuable objects are: 

1. Single red hair 

2. Brown woollen thread 

3. Footprint 

4. Set of fingerprints 

5. Blood stain 

6. Heavy wooden stick 

The obstacles to getting these are: 

1 . The hair will get damaged or lost if you 
take it as it is. It is on the sleeve of a coat. 

2. The thread, invisible to the naked eye, is 
on the inside edge of a locked drawer. 



3. The footprint is in a flower bed outside a 
window. 

4. The fingerprints are on the surface of a 
large table next to the body. They are 
invisible. 

5. The blood stain is on the carpet. 

6. Touching the stick will destroy any prints 
which might be on it. 

What solutions can you think of? There are 
some suggestions on page 47, though yours 
might be better. 
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PLANNING AGAME 



Useful objects 



To help the player solve the problems you set, you will have to include some tools, 
weapons and other useful objects in the game. The player must find the appropriate 
objects and use them in the right way to get round the obstacles. You can test the 
player's ingenuity by not including the most obvious objects. Instead of a key, for 
example, you could include a hairpin or paperclip for opening a locked door. You can 
make things more difficult, too, by hiding, say, a torch in one place and the batteries for it 
in another. The player must find both before he can use them. 

Add your objects to the word list you started for your treasures. Don't forget that some 
of your treasures can have uses too. (You don't need to list them twice.) 



Haunted House problems and solutions 

Here are the solutions to the Ha an ted House game problems 
and the objects needed for them. 




Problem 

Too dark to see 



Bats 

Secret room 
Locked door 
Paralysing ghosts 

Magical barrier 

Marsh 



Barred window 
Coffin 



Solution 

Put candle in candlestick 
Light candle with match 



Spray with "Baticide" 
Break down false wall 
Unlock 

Suck up with vacuum cleaner 

Use magic spell 

Get across in boat 

{Can only be used once as 

it gets stuck in mud) 

Dig round edge to remove bars 

Open lid 



Objects needed 

Candle {hidden in desk drawer) 
Matches 

Candlestick (already in 
valuable objects list) 
Aerosol can 
Axe 
Key 

Portable vacuum cleaner 
Batteries 

Book of magic spells (already 
in valuable objects list) 
Boat 



Shovel 
Nothing 



L 



: 

scide where the objects are to go and 
rk them on your master! plan. They will 
* less conspicuous if you put them in 
ices where people would expect to find 
|em, e.g. knife in the kitchen, book in the 
piudy or library, axe near the woodpile. You 
aright want to 1 add extra props (see previous 
page) at thisfetage. Haunted House has a 
desk in which the candle is hidden. 
^Remember hot to put your objects in 
^Impossible/places. It is no good putting the 
light behin^l a locked door and then putting 
the key in a dark room. 

Put the r/umber of the location next to 
each object. Add to your list any other 
words (not verbs) that you will want the 
computer to understand, too e.g. north, 
south, ghosts, bats, coffin. (Remember to 
include all your props.) 




, unWJ House object 





. . . and what can be done with them 



Now you have decided on the objects to go 
in your game, what are you going to let the 
player do with them? You need to make a 
list of verbs and the things they apply to. 
This should include "going" verbs too, so 
that players can give instructions about 
where they want to move to. 

Many adventure programs are 
constructed so that the computer accepts 
commands of not more than two words from 
the player. It checks the first word against a 
list of verbs you have put in its memory and 
the second against the object and direction 
words you have given it. A lot of the fun in 
writing adventures is trying to think of all 



the combinations of verbs and objects that 
the player might try and deciding on what 
action or reply the computer should give. 
Writers of business programs need to think 
in this way too, to prevent their programs 
crashing because of an unexpected 
response from the user. 

To deal with verbs (and objects) which 
the computer cannot find in its memory, 
you can include general replies, such as 
"Do what with the (object)?". Group 
together verbs which mean the same 
thing, such as get and take. You will be 
able to save memory space by sending 
the computer to the same routine for both. 
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Haunted House verb list 

Number your verbs starting with 1. (The 
computer uses zero for "verb not found", 
as you will see on page 16.) HELP and 
INVENTORY (or CARRYING?) are 
standard adventure game features so 
include them in the verb list. It is also 



Verb 






number 


Verb 


Applies to 



1 


HELP 




2 


CARRYING? 




3 


GO 


DIRECTIONS 


4 


N 




5 


S 




6 


W 




7 


E 
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U 
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D 




10 


GET 


OBJECTS 


11 


TAKE 


OBJECTS 


12 


EXAMINE 


ANYTHING 


13 


OPEN 


DOOR, DESK 


14 


READ 


BOOKS, SPELL 


15 


SAY 


ANY WORDS 


16 


DIG 




17 


SWING 


AXE 


18 


CLIMB 


ROPE 


19 


LIGHT 


CANDLE 


20 


UNLIGHT 


CANDLE 


21 


SPRAY 


AEROSOL 


22 


USE 


VACUUM 


23 


UNLOCK 


KEY, DOOR 


24 


LEAVE 


ANY WORDS 




SCORE 







useful to add shortened forms of GO 
NORTH etc. (see verb numbers 4-9 in the 
chart). These reduce the amount of 
typing the player has to do and make the 
game faster to play. 



Action (conditions, if any, in brackets) 

Used to indicate "verb not found" 
Lists all verbs the computer knows 
Lists all the objects player is carrying 
Moves position 

Shortened form for "GO NORTH" 
Shortened form for "GO SOUTH" 
Shortened form for "GO WEST" 
Shortened form for "GO EAST" 
Shortened form for "GO UP" 
Shortened form for "GO DOWN" 
Pick up object and take it with you 
(Object must be in the location) 
Same as GET 

Reveals any concealed object 
Opens door or drawer (must have key for door) 
Displays written clues (must have book of spells 
or be in library) 

Says words typed "out loud", e.g. casts spell 
Makes a hole (must have shovel and be in ceDar) 
Breaks down false wall (must have axe and be 
in study) 

Go up or down rope 

Turns light on (must have candle, matches and 
candlestick) 

Turns light off (must be carrying lighted candle) 
Removes bats from rear tower (must have 
aerosol) 

Sucks up ghosts (must have vacuum and 
batteries) 

Opens door (must have key) 
Leave object behind (must have object) 
Prints out score 




I 



PLANNING A GAME 

The master plan 

Your mast er plan and the lists you have 
made contain all the information, or data, 
needed for your program. Here is the 
completed master plan for Haunted 
House. (Don't worry if your master plan 
doesn't look as elaborate as this.) Over the 
page, you will find out how to put this data 
in your computer. Before you touch your 
computer, though, make sure you have 
planned out your game to the last detail. 



r 




14 V. 



Adventure brain teasers 

Here are some situations players might 
perhaps find themselves in during an 
adventure. See how many solutions you 
can think of for each one. There are 
some suggestions on page 47, 

1 . You are trapped in a room about 
three metres square. There are no 
doors. There is a thick carpet. 

2. As you enter a room, a feeling of 
extreme drowsiness comes over you. 
You are carrying a small, but quite 
heavy, rucksack and a handkerchief. 

3. You are standing on the battlements 
of a castle. Beneath you is a horde of 
angry slaves and behind you armed 
soldiers. You have a parchment scroll 
in your hand. 

4. You have been invited to dinner by 
the evil arch-villain. He has taken away 
all your weapons. As dessert is served, 
he shows you the remote control for his 
world decimator weapon. 






59 1 DEBRIS 60 

Aerosol can 
BENEATH ! < - 
TOWER 




FALLEN 

L *" BRICKWORK ARCH < 



N 

STONE 



CRUMBLING 1 
CLIFFTOP 
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STORING THE DATA 



Putting the data into the computer 




You now have all the data for your 
adventure written out on pieces of paper. 
The next problem is to work out how to put 
it into the computer's memory. 

The computer needs the data stored in 
such a way that it can get at each item 
quickly and update things as the player 
progresses through the game. To do this, 
you set up storage areas called "arrays" in 
the computer's memory. An array is like a 
set of pigeon holes or filing boxes. You 
give each array a name and each box in it a 
number, so the computer can find the box 
you want when you refer to it in your 
program. 



"-^l This is an 
yr\ array called "X" 
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Before you can give the computer any 
data, you must decide how big each array 
should be and tell the computer to reserve 
and label that much space. This is called 
"dimensioning" the array and is written 
DIM in BASIC. 

The arrays for Haunted House 

Haunted House needs the following arrays 
to hold its data. You will need similar arrays 
whatever the theme of your adventure. 

1. An array to hold the descriptions of the 
locations. It needs 64 pigeon holes (one for 
each location). We've called it D$( ) and 
numbered the holes to 63 as on the master 
plan. 




2. An array to hold the information about the 
routes the player can take from one location 
to another. This is R$( ). It needs to be the 
same size and numbered in the same way as 
D$< ). 

3. An array for the objects and other words 
on the word list. By dimensioning this DIM 
0$(W), where W is the number of words on 
your list, the computer will set up an array 
with one space for each word and an extra 
space. This is because it always starts 
numbering with zero and ends with the 
number in the DIM statement. This is useful, 
because the zero space can be used for 
"word not found in memory". 

e. g. If W =4, the array would look like this. 
DIM 0$(4) gives five spaces labelled 
to 4. 




i 



4. A verb array. This needs a space for each 
verb and an extra space for "verb not 
found". It is called V$( ) and needs to be 
dimensioned DIM V$( V) where V is the 
number of verbs on your list. 

More arrays 

Locations, routes, object words and verbs 
are not the only information that needs to be 
stored in the computer. You also need 
arrays to store information about where the 
objects are, which objects the player is 
carrying and such things as whether the 
light is on or off. 

There is no need to store the object and 
location words again. This extra information 
can be stored as numbers to save space, 
e.g. object 9 is in location 10, 

Array L( ) shows which location each 
object is in. It only needs spaces for the 
"gettable" objects such as the key, not the 
props or other words. If G is the number of 
gettable objects then this array is 
dimensioned DIM L(G). 

Array C{ ) is for information about which 
objects the player is carrying. This also 
needs spaces only for the gettable objects, 
so is dimensioned DIM C(G). 




Flags 

As well as keeping track of the things the 
player is carrying, the computer needs to 
be able to record other changes that 
happen during the game, e.g. whether the 
candle is alight, the door locked or the key 
visible. 

This can be done by using an array, F( ), 
of markers or "flags", which contains W 
spaces, i.e. one for each object word. By 
putting Is and 0s in these spaces, the 



computer can see what state the object is in. 
is used for the "normal" or "inactive" state, 
such as light off, object visible. 1 shows the 
"active" or "not normal" state, such as light 
on and object invisible. 




S <$£r 



Did you know that computers 
have flag registers in then- 
CPUs which work like this flag 
array? They use them to store 
information about what is 
happening while a program is 
running. 



Why not use 2D arrays? 

If you have come across arrays before, 
you may have wondered why single 
dimension arrays are used for the 
Haunted House descriptions and routes 
instead of two-dimens ional arrays, 
which would look like this: 





AO 









mm 


Ft 




mm 



ol 



The reason is that single dimension 
arrays use slightly less memory space . 
You could use 2D arrays if you wanted to, 
in which case you would dimension them 
DIM D$(8,8) and DIMR$<8,8). 
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STORING THE DATA 

Putting the data into the arrays Data for the flags 



Having set up labelled storage areas in the 
computer's memory, you need to tell it what 
to put in them. One way of doing this is to list 
the data, in order, and tell the computer to 
loop round putting one item at a time in the 
spaces in an array. * Here is how this is 
written in BASIC: 



The data for the flag array, F( ), consists 
only of Is and zeros. Objects which are 
invisible at the start of the game have I in 
theirboxinF( ). When they are discovered 
by the player the flag changes to zero. All 
the other objects start with zero. 



Dill D$(U) 

DATA FAMINE, RINMA6IC SPELLS, SDBLET, ETC. 
FDR 1=1 TD 1 
READ 0*U) 
NEXT I 




First time round, 1= 1, so 
PAINTING is put in 
0$(1). Computer goes 
back for the next value of 
I and puts the next item, 
RING, in OS<2) and so on. 



L 



Loop starts with 1 for 
object, verb and the 
three number arrays, so 
computer leaves space 
zero empty. For location 
and route arrays, loop 
starts at zero. 
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This is the loop for READing the DATA into 
0$( ). Look at lines 1600 to 2 100 in the 
program listing on pages 36 and 37 and see 
if you can pick out the data loops for the 
other arrays. 




^Tlnvisible 
d Objects 
UKey (18) 

i 



You only need to tell the computer which 
boxes in F( ) need Is in them. Leaving the 
rest empty is the same as fining them with 
zeros. The easiest way to fill this array is as 
shown in line 2090 (on page 37). 

You may have noticed that some spaces 
in F( ) are not used because some objects 
do not change their "state". These spare 
flags can be used for other things. For 
instance, mHaunted House, F( 14) (the rope 
flag) is used to show whether the player is 
up the tree. The candle needs two flags - 
one to show if it is visible and another to 
show if it is lit. The spare flag F(0) is used for 
lighting it. If you want a spare flag for 
something, use the ones for words that 
won't need them, like "north". 

Data for the carrying array 

The player isn't carrying anything at the 
beginning of the game, so to show this the 
array C( ) is left empty. When an object is 
picked up the computer puts a 1 into its box. 
So, no data lines are needed for array C( ). 

Initialization 



Setting up the arrays and filling them with 
data is called "initialization". You can see 
in the next section where this fits into the 
program structure. 



*TheZX8J (TimexWOO) does not do this, see page 39. 



WRITING THE PROGRAM 



The program structure 



In order to arrive at the overall structure of 
the adventure program, you need to think 
about the jobs the computer has to do 
during the game. 



exfe-(^ tK ' : or additional 
information «5u y 

„ s tof words and ' e ^* S ense, then 

P^P^fSoe MESSAGES) 
instructions. fEKW bfoncn t0 

subroutine to raKeupp r 

'instructed. 
3 Go baeKtol. 



The list above shows the order in which the 
computer needs to do things, but not 
necessarily the order in which they need 
appear in the program. A large chunk of the 
program is the initialization routine which is 
only needed once each game, and, 
although it is the first thing the computer 
must do, it is a good idea to put it at the end 
of the program. This is because every time 
the computer is told to GOTO or GOSUB it 
goes back to the beginning of the program 
and checks through each line number until 
it finds the one it wants. This can take a 
noticeable amount of time in a long 
program. By putting initialization at the end, 
the computer does not have to check 
through it each time the player makes a 
move. 



The structure of the program actually looks 
like this. As you can see, the biggest part of 
it is the subroutine section. There needs to 
be one subroutine for each verb used in the 
game. You will find out more about these on 
page 25. 



RUN 




FEEDBACK 
MESSAGES 




INPUT & 

INPUT ANALYSIS 



MESSAGES & 
OVERRIDE CONDITIONS 



BRANCH TO 
SUBROUTINES 





VERB 2 



VERB 3 



VERB 4 

AVWWW\ 
VERB V 



INITIALIZATION 



WRITINGTHE PROGRAM 

Getting into the program 



Now you have an overall idea of what the program will be like, you can start thinking about 
each part in more detail. You have already seen on pages 16 to 18 how the initialization 
section works. The next eight pages describe how the other main parts of the program 
work. 

Description and feedback 

Every go, the computer must tell the player where he is and the direc, ions in which he can 
move. It must also tell the player what happened as a result of his last ii.structions. This is 
the description and feedback section and it looks something like this, See if you can 
identify each part in the program listing on pages 35 to 37. 

RM is the number of the location the player 
is in. You must remember to set a starting 
value for this in the initialization routine. (For 
Haunted House 57 is the starting value for 
RM. see line 2090). 

The computer looks in D$ (the array 
containing all the descriptions) and prints 
what it finds in the box with the value RM. 




140 FOft 1=1 TO LEHIRtiRHH 
150 PRINT MIDt (Rt (RH) ,1,1), 
160 NEXT I 




"NWE"-so 
LENR$(57)is3 



l t l fr TUH 1-1 IB B — 
o 190 IF L(1)=RH AND F!1J=0 THEN PRINT 

M BFF -iMtllf HE.RP 
o m NEET- I — 
220 PRINT K« 



225 M="WH.AT?" 



-A 



Urgent 
message for 
player from 
Subroutines. 




Looks at the length of the string in box RM in 
the routes array. R$. The computer then 
loops round this number of times, printing 
"out each character in R$(RM) m turn, 
putting a comma and a space between each 
one. 



Loops round to see if there is an object with 
a zero flag in the location (i.e. a visible 
object) and prints out its name if there is. 

M$ is a variable used to contain messages 
the computer has for the player, as a result 
of instnic Lions given in the previous go. 
Look for M$ in the program listing on pages 
33 to 37 and see how different messages are 
put into M$ depending on what the player 
typed. 

At the beginning of each go, M$ is set to 
"WHAT?", so if there is no new message to 
replace this, the computer just prints 
"WHAT?" 



Right -I'll take 
•WHAT?" out. 



The input section 

An important feature of adventure games is the way the computer responds to instructions 
typed into it by the player. Ha un ted House, like many adventures, limits the player to 
two- word sentences, plus a few special one-word commands such as HELP. The next 
section of your program must ask the player for instructions and then tell the computer 
what to do with them. 

To start with the computer needs to split the player's input into two words which it can 
then check against the words it has in its memory. The "word-splitter" routine used in 
Haun ted House works by scanning the player" s input until it finds a gap in the letters. It is 
listed below with a few extra lines so you can type it in by itself and see it working. * 



100 as 

110 PRINT "PLEASE TYPE SOMETHING* 
120 IKPUT Q$ 
130 V*=" 
140 Nt=" 



150 FOR 1=1 TD LEN(Bt) 



160 IF KIWlfM,!**" " AND V* 
M THEN V*=LEFTtlB(,l-ll 



1 




I've found 
a space 1 



170 if nnwBMtUX)' " and v*<>" then m=«idi 

(Qi T I+l,LEN(g»-l);I=LEH(a*}, 



180 NEXT I 

190 if ms- 



then V*=BJ 



J 



200 «=' THESE ARE YOUR 2 WORDS' 

210 PRINT "FIRST N0RD=";V* 

220 PRINT "SECOND NDRD="iM 

230 If f**" THEN «='YDU ONLY TYPED ONE WORD" 

240 IF M=" AND »=" THEN H*="Y0U DIDN'T TYPE 

ANYTHING" 

250 PRINT Ml 

260 STOP 



Gets player's instruction and puts 
it in Q$. Sets up two new string 
variables: V$ and W$. 

Looks to see how many 
characters there are in Q$ and 
■ starts a loop which goes round this 
many times. 

, Looks through Q$ for a space. If it 
finds one and V$ is still empty, it 
puts all the letters to the left of the 

\space into V$. 

,""-\ 



These line numbers 
do not correspond 
to numbers in main 
program listing. 




Continues to look through Q$ until 
it finds a letter following a space. 
It then takes everything to the 
right of this space and puts it in 
W$. (This means it doesn't matter 
how many spaces the player 
types between his two words.) 




When V$ and W$ are both filled, 
the loop counter is set to its 
' maximum value to end the loop. 

, If the computer didn't find a gap m 
the letters then V$ and W$ will 
still be empty when the loop has 
finished. It then takes the whole of 
Q$and puts it in V$. 

This section is so you can run the 
word-splitter by itself. It prints out 
' messages depending on what 
you typed in. Run the program 
and see what happens. 
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'NB This will not work on Sinclair (Timex) computers. Seepages 38 or 39. 



WRITING THE PROGRAM 

Analysis of input 



The computer now has the player's instructions stored in two strings V$ and W$, which 
stand for "verb string" and "word string" . Its next job is to check these against the words 
you have given it in the initialization procedure on page 18. It assumes the word in V$ is a 
verb and loops round seeing if it matches any of the verbs in the array V$( ). (Notethe 
difference between the string variable V$ and the array V$( ) - they are completely 
different things to the computer, so make sure you don't confuse them.) 

The computer then loops round in the same way trying to match up W$ with one ofthe 
words in the array 0$( ). 

Here is the section of program which checks for a match between the player's words 
and the words in the computer's memory. 



VB is a new variable set up to record the 
box number containing the matching verb. 
If the player typed GET, for example, the 
computer looks through V$( ) until it 
reaches box 10 where GET is stored. So, in 




I've found 
it - its 
in 10. 



20 FOR 1=1 TD V 

3Q IF V»=V*U) THEN VB=I 

40 NEXT I 



50 0B=0 

60 FOR 1=1 TO N 
70 IF Wmm THEN DB=3 
80 NEXT I 

What if the words don't match? 

If no match was found, then VB and OB will 
still be zero. The computer takes this as 
meaning that box zero in the array contains 
the match for the player's word. But when it 
looks there to find out what the matching 
word is it doesn't find anything because you 
left this box empty when filling the arrays 
with data. 



There's 
nothing 

there. 




The computer loops round V times (V is the 
number of verbs in the computer's 
memory), comparing the player's verb with 
each of those in its memory, If it finds one 
that matches, it sets VB to the appropriate 
number. 

The loop for W$ works in the same way, 
using OB to record the box number ofthe 
matching word. 

Silly combinations 

Notice that this matching-up process only 
checks if the two words are in the 
computer's memory. It doesn't check to see 
if the combination of words makes sense. A 
silly combination such as UNLOCK 
CANDLE gets through this stage ofthe 
program, but will be rejected later on when 
4he computer tries to carry out the action. It 
is much quicker just to check the separate 
krords at this stage than to tell the computer 
to check for valid combinations. 

At the end of this section ofthe program, 
the computer has a value for VB and a value 
for OB. You can see what it does with these 
overthe next page. 



Setting up error messages 



The computer can use the values of VB and 
OB to see if the player needs to be sent a 
message saying his instructions are no 
good. This part of the program is like a filter 
or grader. The player's instructions are fed 
through a series of tests. If they don't pass 
one of the tests, a new message is put in M$. 
If they pass through all the tests, M$ still 
contains the message "WHAT?" which was 
set up in line 220. (Remember that, at this 
stage, the messages are just set up, they are 
not printed on the screen and may be 
changed again later in the program 
anyway.) 

Here are the program lines which set up 
the error messages in Ha un ted House - see 
if you can find them in the main listing. You 
will need similar lines if you are writing your 
own adventure. 

Remember the message 
in M$ might be changed 
again later on in the 
program. 




IF «>" AND Dfl=0 THEN N*="THAT'S SILLY" * 

* 



object to the zero and produce an "on 
range" error. To get round this, VB is 
changed from zero to a value greater than V 
(the number of verbs in the computer's 
memory), and the computer is sent to a 
"dummy" subroutine. 



IF «*="■ THEN M="I NEED TKO WORDS" 




This line sets up a message if the player 
only typed one word and so W$ is empty. (If 
the word is one of the allowed one- word 
commands, this message will be changed 
later in the program.) 



IF VB>V AND DB>0 THEN Ht="Y0U CAN'T ' 
■+!}*+■'" 




\T You can't 



The first test looks to see if there is a word in 
W$ (i.e. that the player typed two words) 
and then checks if the value for OB is zero. 



This line sets up a message if the computer 
doesn't have the verb in its memory, but 
does have the object. 




AND 01=0 THEN Bt='Y0U DON'T 



This line is to overcome a problem. You 
cannot GOSUB on a value of zero. But 
different B ASICs vary in the way they cope 
with being asked to do this. Most of them 
ignore the GOSUB and carry on to the next 
line. Some, however, such as the BBC, 



% You don't 
(K^no ke sen se . 



If the computer doesn't have either of the 
player's words in its memory it sets up this 
message. 



WRITINGTHE PROGRAM 



IF V6U' AND 06 >0 AND CfQBKM THEN fl$= 
• "VOU DON'T HAVE "G$<08) " 




You don 't\ 
have candle.) 



Override conditions 

Sometimes things happen in an adventure 
which prevent the player from doing 
anything until he has dealt with them. In 
these circumstances, instructions which 
would normally be valid need to be 
overridden, so the computer needs 
program lines which set flags* in its 
memory to tell it that special conditions 
apply. 

In Ha un ted House, lines 420 to 450 are 
override conditions. You can see them on 
the right, with an explanation of how they 
work. 




420 IF FT26!=I AND RH=t3 AND RN0<3K>? 
AND VBOZ1 THEN «="BATS ATTACKING!": # 
GOTO 90 — . 

430 IF RH=44 AND RNDI2)=1 AND F<24)<>1 
THEN F!27!=l • 
440 IF F (01=1 THEN LL=LL-I 
450 IF LL<1 THBT F(0}=0 * 

Line 420 

If bats are present, player is in Rear Turret 
Room, random number is not 3 and player 
hasn't used verb 2 1 (SPRAY) in his 
instructions, then M$ is set to "BATS 
ATTACKING" and player cannot go any 
further in the game. 
Line 430 

If player is in Cobwebby Room, random 
number value is 1 and vacuum cleaner is 
switched off, then flag is set for paralysing 
ghosts to appear, i.e. F(27) is set to 1, 
Line 440 

If candle is lit, then light limit counter, LL, is 

decreased. 

Line 450 

If LL is zero, then candle on/off flag, F(0), is 
set to zero. 

Perhaps you can think of other override 
conditions which could be added here. 



Branch to subroutines 

The computer's next task is to attempt to 
carry out what the player wants to do. If it 
had to search through every possible action 
until it found the one the player wanted each 
time, the game would be very slow and 
boring. To avoid this, you use lots of 
subroutines - one for almost every verb on 
the verb list. (A few, such as GET and TAKE, 
can share the same one.) 

You can then use an ON . . . GOSUB line to 
tell the computer to branch to a different 
subroutine depending on the value of VB. 



DN VB GOSUB 500, 570. 640, 640, 640, 640, 
l-m l-ii i.n uijm^uhjii^ mfjl 4 < JJL 

1 180, 1220, 1250, 1300, 1340, 13B0, 1400, 
1430,11^1490, 155^,1590 



*See page 1 8 for more about flags. 



How the ON. . .GOSUBIine works 



f 



The ON , . . GOSUB line on the opposite page works like this. If VB= 1 the computer goes to 
the first line number listed, if VB =2 it goes to the second, if VB =3 it goes to the third and so 
on. Notice that the last line number listed is a "dummy" subroutine for VB= V+ 1 (thevalue 
of VB when no matching verb was found in the computer's memory). The line it is sent to 
just says RETURN and so sends the computer straight back up the program again. 

Look at the subroutines on pages 34 to 36 and see if you can work out what they all do. 
Here is the procedure for LIGHT (VB= L9) as an example. You will find it at lines 1340- 1370. 




What happens if the object is not candle? Back to the main program 



If the object the player wanted to use was 
not CANDLE, but one of the others in the 
computer's memory, such as DOOR, then 
the message in M$ is unchanged from when 
it was set up in line 220. When the computer 
returns to the main program and finds the 
instruction PRINT M$ it will print the 
message "WHAT?". 

Notice that there is no need to set up a 
message saying the candle isn't there, as 
this is already covered in the error 
messages section. 



Although some of the verb routines are 
longer and more complicated than this one, 
they all work in a similar way: the value of 
OB is checked, a special message is set up 
if necessary and then the computer returns 
to the main program. It checks the light limit 
at lines 470 and 480 and is then sent back to 
the description and feedback section. Here 
it prints out the message it has put in M$ and 
waits for the next set of instructions from the 
player. 



WRITING THE PROGRAM 

The GO subroutine 

The subroutine for the verb GO is so large 
and important in an adventure game you 
could almost think of it as a sub-program. 
Seven verb commands are directed to it- 
GO, N, S, W, E, U and D. This routine is also 
special because it responds to single-letter 
direction commands as well as two- word 
ones. You don't have to include this facility 
in your program, but it does help make the 
game quicker and more interesting to play. 
If you've played many adventures you will 
realize how tedious it is to have to type GO 
NORTH etc. every time. 
This is how the GO routine works. 



This is how the 
GO routine works 




Line 640 




P = / = north 
= 2 = south 
0*3= west 
D*4 = east 
D = 5* up 
= 6 = down 




440 D=o 

450 If 00=0 THEN Mt-% 
440 IF ON? THEN N 
m IF 0FJ=20 THEN 0*2 
480 IF 08=21 THEN D=3 
i?<> IF BB-2? THEN 0=4 
700 IF 06=23 I HEN 0=5 
710 IF 08=24 THEN 0=4 
720 IF RK=20 AND 0=5 THEN D=i 
7 JO IF RJl'20 AND D=4 THEN 0=;. 
746 IF AND 0=i> IHEN, 0=2 

750 IF RH=22 USD 0=5 THEN 0=3 
740 IF RH=3t AND 0=6 THEN 0=1 
770 IF (tH»Si AND 0=5 THEN 0=1 
780 IF F(H) = 1 THEN M=- CRASH 
:FI141=0:RETURN 

798 IF F 1271=1 AND R*«52 THEN M e ="6H0STS HILL NOT LEI YOU 
(«M':R£TUflN 

300 IF R11=45 AND CI 1 1 = 1 AND F 1341=0 THEN Bt="A MAGICAL 
BARRIEfi TO THE NEST ff£ TURN 

810 IF (RN=2s AND FI01=Gi AND 10=1 OR 0=41 IHEN Hl="'(01t 
NEED A LISHT'iRETURN 

820 IF RH=54 AND CilSi M THEM M<=-y 0(J'RE SIDCt ! RE TORN 
8J0 IF CU5) = I AND NOT («H«53 OR RH=54 Oft RN=55 OR RJM71 
THEN K*= - Y0U CAN'T CARftY A BOA 

840 IF tm-lb AND RIK30) AND F 1 01=0 THEN M*="TDD OAF* ID 
ttBVE":ftEILIRN 



You can see now why 
directions were 
included on both the 
verb and the object 
lists. 



tOO FELL DOT OF THE TREE' 



Line 650 




( * r 



First, a variable D is set up to hold 
information about the direction in which the 
player wants to move. Its values 1 to 6 
correspond to north, south, west, east, up 
and down. 



The next line checks to see if the player just 
typed one word and then gives D a value 
depending on the value of VB, (Notice that 
by taking 3 away from VB, the computer 
gets values for D which correspond to those 
in lines 660 to710.j 



Lines 660-710 




The next six lines check if the player typed 
a two-word direction instruction. They use 
the value of OB to set the value of D. 



Lines 720-770 




As this is not really a 3D adventure, the UP 
and DOWN instructions need to be 
converted into north, south, east or west. 
Lines 720 to 770 do this. (If you check back 
to the master plan on pages 1 4 to 1 5, you will 
see that this does work.) 



Lines 780-840 

r 




The computer also needs to check if there H the player is in location 52 and the ghost 

are any special conditions which affect the flag is "on" then a message is sent to say he 
player's ability to move. For example if cannot move. Each of these conditions 

F(l4)=l, then the player is at the top ofthe returns the computertothe main program, 
tree. If he tries to move without first See if you can work out what the rest ofthe 

climbing down, he gets a message saying lines in this section do. 
he has fallen. ^ a f or ^ e com p U ter to use to register 

< whether it has found the exit the player wants. 
RL is a new variable which holds the length ofthe 
stringwhich it finds in R$(RM). (This string is the 
routes, NSW etc. , for the location the player is in.) 



If the move has not been stopped 
by any of these special 
conditions, the computer must 
check that there isn't a wall or 
anything else blocking the way. 
Here are the lines which do this. 
They look quite complicated at 
first sight, but if you look carefully 
at each part, remembering what 
all the variables are, you should 
be able to see what is happening. 



850 F(35)=0:RL=LEN(R$(R(1))- 
860 FOR 1=1 TO RL 



870 U*=MID*<fit(RM,I,l> " 

980 IF m**W AK0 0=1 AND F(35)"0:" 

THEN RH=RN-B:F (351=1 
890 IF (UVS 1 AND 0=2 AMD F (351=0: 

THEN RK=RIH-8:F!351=1 
900 IF tUt="N' AND D=3 AND FI35)=0: 

THEN RH=fM-hF<35!=l 
910 IF IU*="E" AND D=4 AND F(35) 

THEN RH=RM+1:F(35!=1 
920 NEIT I 

930 H*="DK" 

940 IF F I35>=0 THEN Ht="QAN' 

THAT NAV 
950 IF D<1 THEN Mt='60 NHE 
960 IF RN=41 AMD F(231=l 

THEN R*(49)= , SN , :N»- , THE 

SLAMS SHUT!":FI23)=0 
970 RETURN 



t 



T GOT i- 



Computer loops round RL times. 

Each loop, computer takes one ofthe characters in 
R$(RM) and temporarily calls it U$. 

It then runs a series of tests on U$ and D. If the 
player's direction instruction matches an exit in the 
location he is in, then the value of RM is changed to 
move him to the appropriate place. F(35) is then set 
to 1 to stop the computer trying to change RM again 
on another trip through the loop, ( If you think 
carefully, you will see that this could be possible as 
the computer uses its new value of RM in line 870.) 

If you check the master plan, you will see how 
adding or subtracting 1 or 8 moves the player to the 
correct next location. 

At the end of the loop, M$ is set to "OK". This will 
replace the "I NEED TWO WORDS" message set 
in the error messages if the player typed a one- 
word direction. 

If F(3S) is still zero, then the direction the player 
wants to go is not allowed and M$ is changed to say so 

If D is less than one (i.e, it wasn't assigned a value in 
.lines 650 to 770), then M$ is changed to "GO WHERE?" 

This line makes the front door a "once-only" route, 
When the player enters location 4 1 (the lobby), the 
exits from location 49 (front porch) are changed 
from "NSW" to "SW", M$ is set to "THE DOOR 
SLAMS SHUT" and the flag for the front door is set 
to zero to show the computer it is now closed. (The 
routes from location 4 1 do not need to be changed 
because S wasn't included in them in the first place.) 
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MAKING CHANGES 



Changing the program 

Longer descriptions 



You can change the program in this book as 
much as you like, either to produce 
variations on the haunted house theme or to 
create games with completely different 
settings, descriptions, objects, verbs and 
messages. Remember that the more you 
change, the more complicated it will get as 
you will have to think about how everything 
affects everything else. 

If you are going to write a new game, 
using this program as a guide, then you 
should plan it as described on pages 6 to 15. 
It is worth spending the time planning out 
your game properly as you are less likely to 
find it full of mistakes when you come to run 
the program. 

It is a good idea to start by making small 
changes first to see what happens. Ifyou 
store the master program on tape, you can 
make changes, test them and adapt them 
without losing the original. 



How much spare memory 
have you got? 




The Haun ted House program itself 
occupies about 7K of RAM before it is run. It 
then needs a further 3 Vz to 4K for the arrays 
to store the data. Your computer will take 
some memory for its own internal use - up 
to 3K on some models - and it will use a 
further IK or more for the screen. (The 
Spectrum uses 7K which is why Haunted 
House won't fit into the 16K model.) So, if 
you have a 1 6K computer, you won't have 
much memory left over, and most of the 
changes you make will have to be 
replacements rather than additions. 



Ifyou have more than 16K, one of the easiest 
ways of making the game more interesting 
to play is to add longer descriptions. 
Instead of "impressive vaulted hall" for 
instance, you could say something like "You 
have entered avast, vaulted chamber with 
pillars extending many times your height 
above you. Light filters in from the east and 
there appears to be a doorway in the 
distance to the west . . ." 
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Add a time limit 

Ha un ted House already has a time limit on 
the life of the candle. You could add an 
overall time limit to the game as well by 
getting the computer to count the number of 
turns the player has had and stop the game 
at a preset number. 

You can do this by adding to line 70 and 
putting an extra line at 485 like this. 



70 V=25:H=36:S=13:T=0 




You may not need to 
do this as not all 
computers need new 
variables to be set up 
before they can be 
used. 



485 W+hff TXJ00 
"HIDNIGHT HAS STRUCK. 
YOU'VE TURNED INTO ft BfiT " : STOP 




[ You can change this number to 
I anything you like. 



Puzzle 

Can you think how to put a limit on the 
number of objects that can be carried at 
any one time? (You will have to adjust the 
scoring routine as well.) 



Adding sounds 




Squeak 
Squeak 



This is an effective way of adding to the 
game without having to make complicated 
changes. You will need to know how your 



computer s sound instructions work. Test 
some sound routines out first to make sure 
they are what you want and then add a 
GOSUB instruction to the line where the 
action occurs, eg IF RM=46 AND C{ 1)= 1 
THEN M$= "SOMETHING SCARY IS 
HAPPENING": GOSUB 6000 

You could add sounds for the front door 
slamming, the secret wall breaking, the key 
turning in the door , magic happening when 
you use the magic word and so on. This 
chart gives a few sound routines for various 
computers. The only limit on the number 
you can add is memory. 



FALL OUT OF 
TREE 





DOOR SLAM 



MAGIC 




AXE BLOWS 




GENERAL 
PROMPT 




VIC 20 



MS 34B77.130 

F5R L=!5 TO STEP -| 

POKE M!?U 

FOR N=l TO 2(I;WEIT H 

WIT L 

POKE 34877.0 



POKE 34877, 130 

FOR 1=15 TO STEP -1 

POKE 34878. L 

FOR N=l TD J: NEXT II 

WIT L 

tat( 34B77.0 



POKE 34B78, tS 

FOR 1=140 TD 240 STEP 5 

PDt.'E 34874,1 

FOR N=l TD LOQrNEKT N 

POKE 34874, 



POH 34878.15 
FOR 1=1 30 10 
POKE 34877, 200 
POKE 34877,0 

for (w to weusn n 

WIT I 



tSfi 34B7B.15 

FOR 1-1 TO 2 

POKE 34676, 200 

POKE 34874,0 

FOR 11=1 TD 400:NETT II 

WIT I 



SPECTRUM , 




FOR 1=5 TO M STEP 

BEEP o.:,i 
ME1T 1 



FOR 1--1 TO lli 
BEEP 0,01,0.01 
FOR 11=1 10 IM:KEiI N 
WIT I 



BEEP 0.5.5 
PAUSE 50 
BEEP 0.5,5 



FOR L«»tS TO 
SOUND O.L.5,1 



FOR L=-|5 TO -8 
5CUHD 5. 0.4 
XEHI L 



FOR M0 TO ISO STEP 5 
SOUND J, -IS, J. 5 
MKT I 



FOR 1=1 TO 1« 
SOUND 0,-15,5,1 
FOR K-l TO IOOO:NE1T H 
WIT 1 



SOUND 2,-15,100,2 
FOR M TO UH'OiWIT 
SDUMt 2,-15.100,2 



DRAGON/ 
TRS-COLOI 



)RIC 



FOR 1=50 ID 230 S1EP It 
SOUND 1.2 
NEXT 1 



SOUND 180.1 

FDR N=l TD 500:NEIT 

SOUND 180,1 



FDR 1=15 TD STEP 
PLSr 0,2,6,100 
MM 5.100.L 
WAIT 10 
NEI1 L 

PLftr 0.0,0.0 



FOR L=13 TO STEP -I 
PLAV 0,2,4,100 
SOUND i,M,l 
WUT I 
ROT L 
PLflf u.0,0,0 



FOR 1=15 TO STEP 
PLflr 0, J, 6, 100 
SOUND 3,100,1 
WIT I 
NEXT L 

PLRV 0,0,0,0 



FOP 1=1 TO 10 

pur o,i,i,m 

SOUND 4,50,7 

PL«r 0,0,0,0 

for m TO lOOlREU N 
WIT 1 



FDR 1=1 TD 2 
tUH 1,0,4,100 
SOUND 1,70,7 
HA1T 39 

put 0,0,0,0 

FDR N=l TD SOOlNEIT N 
WIT I 



MAKING CHANGES 

Scoring 

Haun ted House has a very simple scoring 
system, awarding one point for each object 
the player is carrying. You could change to 
a more interesting system, such as basing 
the score on the value of the object. If you 
assume that the objects are numbered in 
descending order of value, then the 
painting will be the most valuable and the 
key the least. If you change line 1530 like 
this: 

1 530 IF C(I)= 1 THEN S=S+G- 1 

then the painting will be worth 18—1=17 
and the key 18— 18=0. (G is the number of 
gettable objects and I is the number of the 
object the player is carrying.) This makes 
the key valueless as an item of treasure but 
of great value as a useful object because 
without it, the player would not be able to 
get the painting or the goblet. 



If you wanted a more flexible system (and 
you have enough memory), you could set up 
an array to contain object values in the 
initialization routine, like this: 




3 



Use any values you like. 



DATS 20,20,10, 11,14,25,32,8,25,4,9, 17,3,0, 
30 10,12,4,9 




DIM TIB) 
FOR 1=1 TD B 
READ T«I) 
NEXT I 



Dimensions new 
array T with G 
spaces (i.e. number 
of gettable objects) 





Also change line 1530 as follows 
1S30 IF C(I)= 1 then S=S+T(I) 

Penalties _ 

So far, the scoring 
routine has only 
counted plus points 
and not been 
affected by silly 
things the player 
might try to do. You 
could add a penalty 

system quite easily by using a counter, say 
MK, for mistakes. Whenever the player 
does something really silly, you add to MK 
and then subtract it from S when the score is 
worked out at line 1530. If the player falls out 
of the tree, for instance, you could award 
one (or more) penalty points like this: 

780 IF F(14)M THEN IH="ERASH YOU FELL OUT 
OF THE TREE" :f( 14! =0;HK=MK+1: RETURN 

Don't forget that some computers need 
new variables to be defined before they can 
be used. You can do this by adding MK=0 
to the variables in line 70. 

Saving the game 

It would be nice to 
be able to switch 
off part way 
through a game 
and then carry on 
later from where 
you left off. With 
long, complicated 
games this is a very 
important feature 
and you can include it by adding SAVE and 
LOAD to the verb list. In line 70, change the 
value of V to 37 and add the two new verbs, 
separated by commas, to the end of line 
1665. You will also need to change the ON 
GOSUB hne at line 460. 




Put the line numbers of the two new 
subroutines (one for SAVE and one for 
LOAD) between the last two numbers in line 
460 so that they read: 
. . . 1510,3000,4000,1590 



/ \ 



First new number 



Second new number 



Then add the new subroutines like this, 
checking your computer's manual to make 
sure the wording is correct. 



#3000 INPUT "IS YOUR CASSETTE 
READY TO RECORD* pYt 
3010 IF HOT THEN 3 WO 
3020 OPEN FILE FDR OUTPUT FSDtl 
COMPUTER 



1030 PRINT II, SB 



Replace this line 1 
with your 
computer's own 
instructions. You 
may not even need 
a line here at all. j 




This saves the 
room the 
player is in. 





This loop saves 
positions of 
gettable objects. 




This saves items the 
player is carrying and 
the state of the flags. 



3010 FOR 1=1 TO 6 
3050 PRINT II, LID 
:oio NEJCT I 
3070 FUR 1=1 TO N 
3080 PRINT U,CtI),FtH 
3090 NEXT 1 
3100 CLOSE 
:m RETURN 
#I0«0 INPUT "ARE YOU READY TO LQAD"IYi 
I01O IF YtO'Y" THEN 1 000 
1020 OPEN FILE FOR INPUT TO C0NPUTER 
4030 INPUT II, SB 
4040 FOS 1=1 TO E 
4050 INPUT |t,l(J] 
4040 NEJT t 
4070 FOR 1=1 10 K 
4080 INPUT HjEtDjFtll 
4090 HEIT I 
4100 CLOSE 
4200 RETURN 



Note that this save routine does not save the 
descriptions and routes in the game. This 
means that the rooms and routes altered by 
the player's actions will return to their 
original state - the secret wall will be 
rebuilt, the door relocked and so on. (The 
ghosts are probably responsible.) You 
could save the D$ and R$ arrays if you 
wanted to, by adding extra loops to each of 
the SAVE and LOAD routines. 



Do you give in? 

Like most adventures, Ha un ted House 
contains traps for the player which can only 
be avoided by using a certain object in a 
certain way. If the player doesn't have that 
object he is stuck. A "quit" feature would be 
useful in this situation so the player does not 
have to press BREAK or ESCAPE to end the 
game. You can do this by adding QUIT to 
the verb list and putting in a new subroutine, 
as for SAVE and LOAD described on the 
left. 




You must remember to change the 
value of V in line 70, add QUIT to the end of 
line 1665 and insert the new subroutine line 
number in line 460, putting it in the second 
to last position. 

The QUIT subroutine should be 
something like this: 



5000 INPUT "BANT TQ SUIT";e* 

5010 IF QtO'V THEN RETUftfi 

5020 INFUT "LIKE TO SAVE GAflE FIRST',M 

5030 IF Bt="Y" THEN B0SUB 3000 




You don't need this if you 
haven't put the SAVE feature 



5040 PR INT "THANKS FOR PLAYING" 
5050 END 



Notice that there is no RETURN at the end of 
this subroutine. This is usually against the 
rules in BASIC but, in this case, the 
computer cannot get confused because the 
program will no longer be running when it 
reaches line 5050. 



*H you have a BBC, you may need to replace semi-colon with a comma. 



MAKING CHANGES 

Debugging your adventure 

If you write your own version of Ha un ted House or use the routines in it to make a new 
adventure, then you are quite likely to make mistakes. Finding mistakes and putting them 
right is called debugging. Here are some of the problems you might come across and some 
suggestions for fixing them. 



If the computer gives you an error code which stands for 
"out of data in line x" then it means that the numbers don't 
tie up in one of your data-reading sections. Check that the 
number of items of data is the same as the number in the 
loop for reading them in. You could have left a comma out 
in the DATA statement perhaps, or missed out one item 
altogether or put the wrong number in the loop. 



Din A(4! 
FOR 1=1 TO 
READ fl(I) 
NEXT 1 
DATA SHORD, 



HONEY, FOOD WATER 



Array error 




Error here. 

If you get an array error, it means that you didn't reserve 
enough space when you DIMmed the array or you 
accidentally put an extra item in the DATA statement ™ 1=1 ™ f 
(perhaps by putting m an extra comma) and then counted R E6D A ( I ) 
this extra item when working out the number for the READ NE KT I 
loop. DATA AXE, COFFIN, BLOOD, KEY 



Objects behave in strange ways 



This couid happen because the program is being directed to the wrong subroutine by 
the ON GOSUB line. Check each number in this line against the subroutine with the same 
number. If these are all correct, check the DATA statement for the verbs to see if their 
order coincides with the order of the subroutines. 

If the program is going to the correct verb subroutine and the verbs are listed in the 
correct order, check that there is a RETURN line at the end of each subroutine. If this is 
missing, the computer will "fall through" the program to the next subroutine down which 
may produce some strange results. 

If none of the above things solves the problem then check through the conditions in 
the subroutine carefully. You might have missed something out or got a sign wrong or 
used the wrong variable by mistake. Check the override conditions and flags which 
occur earlier in the program too. 



Exits in funny places 



2r 



If you find a wall you can walk through or a doorway you can't, you may have made a 
mistake in planning your routes or in typing in the route data. Check your route map 
against the data lines to find the mistake. 
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ects don't appear where they should 



If an object appears in the wrong place then you've probably made a mistake in the data 
for array L. If an object doesn't appear at all, check the flag array. You must have set the 
flag with that object number to 1 , which means that the object is there but the computer 
won't tell you. You need to set the flag to zero. Check the initialization routine where the 
flags are set up and then the flag references throughout the program. 



PROGRAM L 



1NG 



The Haunted House listing 

This is the program listing for the Haun ted House adventure. It should run on any 
computer which uses Microsoft-style BASIC and which has a minimum of 1 6K of RAM, You 
may have to make a few minor changes for your computer - look out for comments next to 
certain lines in the listing. If you have a VIC 20 or an Oric, there are a few extra lines and a 
line change which you will find at the end of the listing on page 37. If you have a BBC Model 
A, use mode 7. 

This listing will not work as it is on Sinclair (Timex) computers. If you have a Spectrum 
{Timex 2000), turn to page 38 for changes to make to the program. If you have a ZX8 1 
(Timex 1000) there is a special listing for you on pages 39 to 45. 

As this is a long program, you will have to be extremely careful when you type it in. The 
smallest mistake could prevent it running properly and will be very difficult to find once 
you've typed the whole program in. Check each line as you go, especially the ONGOSUB 
and DATA lines. Some of the program lines are so long that they take up two or more lines 
on the printed page. Look out for these and make sure you do not press RETURN or ENTER 
until the end of the program line. 



HAUNTED HOUSE ADVENTURE 
ttfttt#«*ttfttttttftt»i 

THIS VERSION FOR "MICROSOFT- BASIC 
REQUIRES A KINIMUH DF M 
SELECT "TEXT NODE" IF NECESSARY 
*mt*mtmmm**mH**iifj only needed 




10 REM 
20 REN 
30 REN 
40 REN 
50 REM 
60 REN 

(.5 CLEAR 100 — 

70 V=25:«=36:6=1B 
JO BOSUB 1400 
*90 CLS:F-RINT"HAUNTED 

100 PRINT 

110 PRINT "YOUR LOCATION" 
120 PRINT DlfRft) 
130 PRINT "EXITS: 1 ; 
140 FOR 1=1 TO LENtRKRHI) 
150 PRINT NIDt (Rt(RM) , I, t )f ",'j 
I tO NEXT I 
170 PRINT 
ISO FOR 1=1 TO 6 

190 IF L(1)=RN AND F(I)=0 THEN PRINT "YOU CAH SEE ";0t(l)i" HERE" 
200 NEXT I 

210 PRINT "=========================" 

220 PRINT f»:K*="tfKAT" 
230 INPUT "NHftT KILL YOU P0 I 
240 Vt="':NJ=":VB=O:0B=0 
250 FOR 1=1 TO LENiBt) 

260 IF flIDt(flt,I,n = " " AND Vt=""THEN V*=LEFT» (0*, I-1S 

270 IF flIDtlQ*, 1+1,1)0" ' AND W<>" THEN Nt=MIDt(Qt, I+l,LEN(Qt!-U: I=LEN_I0$) 
2B0 NEXT I 

290 IF «=» THEN V*=flt ^ , ^ Seepages21-22tofind 

300 FOR 1 = 1 TO V A ' — ^ \ out how the input section 

310 IF W=»H) THEN VB=I I works - 

320 NEXT I 
330 FOR 1=1 TO N 
340 IF H*=0*!1) THEN LET 0B=I 



If you have a BBC, you 
may need a comma here 
instead of a semi -colon. 
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PROGRAM LISTING 



350 NEXT I 

60 3F «>'■ AHD DB=0 THEN «=■ THAT'S SILLY 
370 IF VB=0 THEN VB=V+1 
3BO IF H$=" THEN Hf="I NEED TKO WORDS' 
390 IF VB>V AND OB>0 THEN H*="YOU CftN'T "+6$+"" 
W IF VB>V AND 0B=0 THEN I1*="y0li DON'T HAKE SEHSE" 
410 IF VB<V AHD 0B>0 AHD C(0B1=0 THEH Mt="YOU DON'T HAVE "■ 
420 IF F(261=l AND RH=13 AHD RNB<3)<>3 AHD VB(>21 THEN Ht="BATS ATTACKING! ":G0TO 90 
430 IF RM=44 AND RND(2) = 1 AND F(24K>1 THEH F(27)=l 
440 IF FI0!=1 




See pages 23-24 to find^ 
out how the error 
messages section 
works. J 



THEN LL=LL-1 
450 IF LK1 THEN F (0)=0 




Use your computer's 
form of RND here, 



3 




Change this line for 
VIC 20 and One. 
See page 37. 




Take extra special care 
to type this line 
correctly. It will mess up 
the game if you get it 
wrong. 



460 ON VB G0SU8500,570, 640, 640,640, 640>4^40,640,980, 980, 1030,1070,1140, 1180,1220, 1250 , 
1300, 1140, 1380, 1400, 1430, 1460, 1490,1510, 1590 
' 170 IF LL=10 THEN M="YGUR CANDLE IS WANING I" 
480 IFLL=1 THEN «t='Y0UR CANDLE IS OUT! 
490 GO 1090 

j00 PR I NT "HORDE I KN0H 
510 FDR 1=1 TO V 
520 PRINT VtU) 
530 NEXT I 
540 Mt="*:PRINT 
550 60SUB15B0 
560 RETURN 
"570 PRINT"Y0U ARE 
580 FOR 1=1 TO S 

590 IFC!I)=1 THEN PRINTOt(I);" 
600 NEXT I 
610 M="":PRINT 
620 SDSUBI580 
630 RETURN 
"640 D=0 

650 IF 0B=O THEN D=VB-3 
660 IF 0B=19 THEN D=I 
670 IF OB=20 THEN D=2 
680 IF QB=21 THEN D=3 
690 IF 0B=22 THEN DM 
700 IF 0B=23 THEH D=5 
710 IF 0B=24 THEN D=6 
720 IF RH=20 AND D=5 THEN D=l 
730 IF RH=20 AND D=6 THEN D=3 
740 IF m=22 AND D=6 THEN D=2 
750 IF RK=22 AND D-5 THEN D=3 
760 IF RK=36 AND D=6 THEN D=l 
770 IF Rtl=36 AHD D=5 THEN D=2 

780 IF F (141=1 THEN «="CRASH' YOU FELL OUT OF THE TREE! ":Ff 141=0: RETURN 
790 IF F 1271 = 1 AND RH=52 THEN Ht='GHQSTS HILL NOT LET YOU HOVE": RETURN 
800 IF R«=45 AND C(l)=l AND F(34S=0 THEN Ht="A KAGICAL BARRIER TO THE HEST 
810 IF (RH=26 AND F(0)=0S AND (D=l OR S=4) THEN ttt="Y0U NEED A LIGHT" :RETU 




The branch to 
subroutines section and 
the verb subroutines are 
explained on pages 24- 
25. 



You can find out how the 
GO subroutine works on 
pages 26-27. 



: RETURN 



If you are using a VIC 20, 
you could shorten the 
messages to 22 
characters or make sure 
the spaces fall in the 
right places so the 
messages look better on 
the screen. 



820 IF R«=54 AND COS) <>1 THEN Ht='VDU ? RE STUCK ! s i RETURN 

B30 IF CI IS) = 1 AND NOT (RK=53 Oft RK=54 OR RM=55 OR RK=47) THEN Mt="¥0U CAN'T CARRY A BOA 
T!": RETURN 

840 IF (RM>26 AND R«<30) AND F(0)=0 THEN M*="TDD DARK TO MOVE": RETURN 



850 F(35}=0:RL=LEN(Rt!Rf!H 
860 FOR 1=1 TO RL 
870 Ut=HIDtfRt(RN},I J l) 

880 IF ttH&'jP AND 0=1 AND F(35)=0)THEN RM=RM-8: F (35) =i 
690 !F (Ut='S" AND D=2 AfiD F!35i=0>THEN RM=RM*8: F (35) =1 
900 IF <U$= n N° AND D=3 AND F(35)=0)THEN RM=RM-1:F<35>=1 
910 IF m=T AND DM AND Ft35)=0)THEN RH=RK+1:F(35)=1 
920 NEXT I 
930 M*= H 0k" 

940 IF F(35)=0 THEN «=' CAN'T 60 THAT MAY ! " 
950 IF D<1 THEN H$='S0 WHERE?" 

960 IF RM=41 AfiD F (231 = 1 THEN Rtt49)="5W";Ht='THE DODR SLAflS SHUT";FI23>=0 
970 RETURN 

IF 0B>G THENf!*="I CAN'T GET "+W*: RETURN 
9S5 IF LIQBJ <> RH THEN Mt=" IT ISN'T HERE" 
990 IF F(QB) 00 THEN f)t="HHAT 
1000 IF C(0B)=1 THEN H$="Y0U ALREADY HAVE IT" 

1010 IF 0B>0 AND L(QB)=RM AND F(DB!=0 THEN C(0B>=l:L<0B}=65:Ht="Y0U HAVE THE "+W* 
1020 RETURN 

30 IF RH=43 AND (08=28 0ft 0B=29) THEN F U 7 ) =0: DRAWER OPEN" 
1040 IF RH=28 AND QB=25 THEN Mi="IT'S LOCKED* 
1050 IF RH=39 AND DB=32 THEN CREEPY !*:F (2) =0 

1060 RETURN 

70 IF 0B=30 THEN F(IB)=0:Mt="SOHETHING HERE! " 
1080 IF 0B=31 THEN Mt=" THAT'S DISGUSTING) " 
1090 IF (0B=2S OR 0B=2<?> THEN Ht=" THERE IS A DRAWER' 
1100 IF 0B=33 OR 08=5 THEN GOS0B1140 

1110 IF mm AND 0B=35 THEN MOTHERS IB SOMETHING BEYOND. ■ " 
1120 IF 0B=32 THEN GQSUB1030 
\j!30 RETURN 

/Tl40 IF RM=42 AND 0B=33 THEN Mt="TH£Y ARE DEMONIC WORKS' 

1150 IF (0B=3 OR 0B=3i) AND C(3)=l AND F(34)=0 THEN Ht= u USE THIS WORD WITH CARE 'XIANFAR' 



Use your computer's 
form of RND here. 




1160 IF C(5)=t AND 0B=5 THEN Ht="THE SCRIPT IS IN AN ALIEN TONGUE" 
J170 RETURN 
Tl80 Mt="DK >»4W+"'" 

1190 IF C(31=l AND QB=34THENH$="tMAGIC OCCURS*": IF RMG45 THEN RN=RND<631 
1200 IF C(3)=l AND 0B=34 AND RK=45 THENF(34)=1 
1210 RETURN 
1220 IF CU2)=1 THEN M$= u Y0U MADE A HOLE" 

1230 IF CU2i=l AND Rfl=30 THEN «t="DUG THE BARS OUT" : D* f RH) = "HOLE IN KALL'ifitlRH! 
J2|0 RETURN 

1250 IF CU4) <>1 AND RM=7 THEN Mt="THIS IS NO TIME TO PLAY GAMES" 
1260 IF 0B=14 AND CU4) -t THEN N*="YOU S«ONG IT" 
1270 IF 0B=13 AND Ci33)=l THEN M*="NH00SH!" 



"USE" 
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1280 IF 0B=I3 AND U®M AND R«=43 THEM R«(RH)="«N":DtiRm = "STUDY WITH SECRET R0Gn s :ttt=" 
YOU BROKE THE THIN WALL" 
1290 RETURN 

300 IF 0B=14 AND C ( 14) =1 THEN Ht=MT ISN'T ATTACHED TO ANYTHING!" 

1310 IF QE=14 AND Ctl4) <>1 AND RM=7 AND F (141=0 THEN «1="YDU SEE THICK FOREST AND CLIFF 
S0UTH":FU4) = 1:RETURN 
1320 IF 0B=14 AND C(14) <>1 AND RM=7 AND F<14)=1 THEN Nt=" GOING DD«N ! ":F (141=0 
1330 RETURN 

"340 IF 06=17 AND C!17)=l AND C(8)=0 THEN i1t=" IT HILL BURN YOUR HANDS" 
1350 IF 0B=17 AHD CUTM AND C(91=0 THEN Hi=" NOTHING TO LIGHT IT KITH" 
13&0 IF OB=17 AND C(17>=1 AND C(9)=l AND C(B>=1 THEN H*="JT CASTS A FLICKERING LIGHT": F (0 > =1 
.1370 RETURN 

380 IF F<0)=1 THEN F CO) 11$= "EXT INGUISHED" 
1390 RETURN 

faoo IF QB=26 AND C(16)=I THEN Nt="HISSS5" 

1410 IF 0B=26 ANDC (161=1 AND F(26>=1 THEN F(2i)=0:Nt= , PFFT! BUT THEN" 
.1420 RETURN 

430 IF OB=10 AND C(10)=l AND CUtM THEN Mt= "SHI TCHED 0N":F(24)=1 
1440 IF F(27)=l AND F(24)=l THEN H«="NHIZZ- VACUUMED THE GHOSTS UP!":F<27)=0 
450 RETURN 

460 IF RH=43 AND IOB=27 OR 0B=28> THEN 60SUB1030 
1470 IF RH=2S AND 08-25 AND F (251=0 AND CU8)=1 THEN Fi25)=l:Rt(RN)=*SEH':D${Rf!)^HUGE UP 
EN DGDR":fif='THE KEY TURNS! 8 
480 RETURN 

1490 IF C!GB)=1 THEN C(0B)=0:L(OB)=RH;Ht="D0NE" 
500 RETURN 
1510 5=0 

1520 FOR 1=1 TO G 

1530 IF C(I>=1 THENS=S+1 

1540 NEXT I 

1550 IF S=17 AND CU5KH AND RH <>57 THEN PRINT'YOU HAVE EVERYTHING" :PRINT*RETURN TO THE 
GATE FOR FINAL SCORE" 

1560 IF mi AND RH = 57 THEN PR I NT "DOUBLE SCORE FOR REACHING HERE f ' : S=S*2 
1570 PRINT ' YODfi SCORERS; IF S>18 THEN PRINT"NELL DONE! YOU FINISHED THE GAME": END 
1580 INPUT U PRESS RETURN TO CONTINUE";Qt 
590 RETURN 

600 DI«Rt(63),Dlf63>,Qt(N),VJ!V) 
1610 DIHCI«1,L(61,F(H1 

1620 DATA46,38, 35,50, 13, 18,28,42,10, 1 If you have a BBC, you 

he u ■ n 7 n if . .-, V \ may need a comma here 

25,26,4,2,7,47,60,43,^ ^^-^O instead of a semi-colon. 

1630 FOR 1=1 TO G 

1640 READ L(I) 

1650 NEXT I 

1640 DATAHELP, CARRYING?, GO, N,S,W,£,U,D, GET, TAKE, OPEN, EXAMINE, READ, SAY 
1665 DATA0I6, SMN6,CL I KB, LIGHT, UNL I GHT, SPRAY, USE, UNLOCK, LEAVE, SCORE 
1680 FDR 1=1 TO V 
1690 READ Villi 
1700 NEXT I 




1710 DATASE,WE,ttE,5KE,N£,WE,S«E,W5 
1720 DATANS,SE,WE,NN,SE,ME,NSW 
1730 DATAN5, NS.SE, WE, NWUD, BE,NSUD, NS 
1740 DATfiN , MB, USE, , HE , NS.N5 
1750 DATAS,NSE,NS«,S,>ISUD,N,N,NS 
1760 BATANE,NW,NE,W,NS£,NE,W,NS 
1770 DATASE.NSW^.WE^.S.SW.NW 
1 780 DATANE , NWE , HE , HE , HE , NWE , NWE , W 
1790 FOR 1=0 TO 63 
1800 READRIU) 
1810 NEXT I 




Notice that data items 
are separated by 
commas. If you change 
the data, make sure you 
don't try to include 
commas in it or you will 
confuse the computer^^ 



1820 DATA DARK CORNER, OVERGROW GARDEN, BY LARGE WQODPILE, YftRD BY RUBBISH 
1825 DATA HEEBPATCH, FOREST, THICK FOREST, BLASTED TREE 

1340 DATA CORNER OF HOUSE, ENTRANCE TO KITCHEN, KITCHEN & GRIMY COOKER, SCULLERY BOOR 

1845 DATA ROOM WITH INCHES OF DUST, REAR TURRET ROOM, CLEARING BY HOUSE, PATH 

I860 DATA SIDE OF HOUSE, BACK OF HALLWAY, DARK ALCOVE, SHALL DARK ROOM 

1865 DATA BOTTOM OF SFIRAL STAIRCASE, WIDE PASSAGE, SLIPPERY STEPS, CLIFFTBP 

1830 DATA NEAR CRUMBLING WALL, GLOOMY PASSftSE, POOL OF LIGHT, IMPRESSIVE VAULTED HALLWAY 

1385 DATA HALL BY THICK WOODEN DOOR, TROPHY ROOM. CELLAR WITH BARRED WINDOW, CLIFF PATH 

1900 DATA CUPBOARD WITH HANGING COAT, FRONT HALL, SITTING ROOM, SECRET ROOM 

1905 DATA STEEP MARBLE STAIRS f BINING ROOM, BEEP CELLAR WITH COFFIN, CLIFF PATH 

1920 DATA CLOSET. FRONT LOBBY, LIBRARY OF EVIL BOOKS, STUDY WITH DESK & HOLE IK WALL 

1925 DATA WEIRD COBWEBBY ROOM, VERY COLB CHAMBER, SPOOKY ROOM, CLIFF PATH 6^ MARSH 

1940 DATA RUBBLE-STREWN VERANDAH, FRONT PORCH, FRONT TOWER, SLOPING CORRIDOR 

1945 DATA UPPER GALLERY, HARSH BY WALL, HARSH, SOGGY PATH 

1960 DATA BY THISTEC RAILING, PATH THROUGH IRON GATE, BY RAILINGS, BENEATH FRONT TOWER 
1965 DATA DEBRIS FROM CRUMBLING FACADE, LARGE FALLEN BRICKWORK, ROTTING STONE ARCH, CRUMBLING 
CLIFFTOP ^ 

-,o\ 



FOR 1=0 TO 63 
1990 READDt il) 
2000 NEXT I 

2010 DATAPA I MT INS, RING, MAGIC SPELLS, GOBLET, SCROLL, COINS, STATUE, CANDLESTICK 
2012 DATAMATCHES, VACUUM, BATTERIES, SHOVEL, AXE, ROPE, BOAT, AEROSOL, CANDLE, KEY 
2014 BATANORTH, SOUTHWEST, EAST, UP, DOWN 
2016 DATADOOfi, BATS, GHOSTS, DRAWER, DESK, COAT, RUBBISH 
201B DAT ACOF FIN, BOOKS, XIANFAR, WALL, SPELLS 
2060 FOR 1=1 TO W 




2070 READOiU) 
2080 NEXT I 
2090 F<18)=1:FU7): 
2100 RETURN 



Make sure you type the 
data in the correct order 
or strange things will 
happen when you try to 
play the game. 



l:F(2)=l:F(26)=l:F(28)=l:F<23)=l;LL=60;RM=57:H$="OK' 



VICandOric changes 

Kyou have a VIC 20 or an Oric, use these lines instead of line 460 in the main listing. 



4553F VE>14 THEN 8010465 

460QN VB GOSUB 500,570,640,640,640,640,640,640,980,980,1030,1070,1140 
463GDT0470 

ftOBI V&-14 mm 1180, 1220, 1250, 1300,1340, 1380,1400,1430, 1460, 1490, 151 0,1 590 
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SPECTRUM VERSION 



Changes for the Spectrum (Timex 2000) 



Sinclair (Timex) computers use a version of 
BASIC which differs quite a lot from the 
BASIC on other popular computers, so you 
will have to make quite a lot of changes to 
make it work. These changes make the 
program slightly too long to fit into a 16K 
Spectrum. You could, however, try 
adapting the program to fit by cutting out 
some of the verbs, for example, and 
shortening the messages. 



Use the lines listed below to replace lines 
in the main program and also change the 
main program as follows: 

1 . The Spectrum needs LET every time you 
assign a value to a variable e.g. LET V=2S. 
This affects many lines, including all the 
ones containing IF . , . THEN, so be careful. 

2. All the string data in lines 1660, 1665, 

17 10- 1780, 1820- 1965 and 2010-2018 must be 
put in quotes, like this: 
1820DATA"DARK CORNER", 
"OVERGROWN GARDEN", etc. 

3. In lines 1790 and 1980, change the loop to 
read FOR 1= 1 TO 64. (The Spectrum won't 
allow you to use the box labelled zero in an 
array.) 



game using capitals - the computer 
does not recognize that "GO WEST" 
and "go west" are the same thing. It is 
best to keep the caps lock on all the 
time. 

f 




iO LETFt=" 
320 PRINT 

140 FOR 1=1 TO LEN(Rt(RH+l) ) 
150 PRINT R*(R(t+li (1 TO I) 
240 LET Xt=""iLET W="i LET VB=0sLET 0B=0 
250 FOR 1=1 TO LEK(Bf)-l 

240 IF Old TO !)=■ " AND X«=" THEN LET Xt=6t! TO 1-11 
270 IF mM TO !♦!)<>" ' AND Xi="" THEN LET Ht=Q$tW TQ> : LET I=LEN(Q»)-1 
290 IF «*="" THEN LET H=Q$ f 

295 If LENIXO > LENIVtUH OR H=» THEN GOTO 325^ ^SBBSS^SkSS^ 

296 LET K*=mFt( TO (LEtMVtU! >-LEN!Xt)) ! 
310 IF HMMti) THEN LET VB=I 

325 IF «*=" OR LEN(Nt!>LEN!Gt(l>) THEN GOTD 360 

326 LET Wt=W*+Fi( TO (LEN(0t(ll )-LENIH«) >) 

405 IF 06=0 THEM G0TQ42O >■ 

420 IF F126)=l AND RH=13 AND INT(RNDI3+1)<>3 AND VB <>21 THEN LET M='BATS ATTACK IHG " 
430 IF RN=44 AND INT(RNDt2)=l AND F!24KM THEN LET F C27i = l 
440 IF F(20i=i THEN LET LL-LL-l 
450 IF LLdTHEN LET F!201=0 
460 SOSUB 500fiVB=lK570t!VB>2 AND VB<10K980t(VB=iO OR VB=ll>M030tlVB=12}+1070t(VB=i3H-l 
14OtiVB=14) + llB0*(VB=15)H220t(VB=16}+1250l( l , l B=17)+1300t!VB=ia) + 1340t!VB=19i + i3eOt(VE=2O) + 
1400l(VB=21)+1430MVB=22IM460J«VB=23)tl490t!VB=24!tl510t!VB=25! + 1590i!VB=26) 

800 IF (RH=26 AND F<20>=0» AND ON OR D=4! THEN LET M="¥0ti NEED A LIGHT": RETURN 
840 IF 1RH>26 AND RM<30) AND F(20!=0 THEN LET Mt="TO0 DARK TO MOVE': RETURN 
850 LET F(35)=0:LET RL=LEN!Rt(RM+l)i 
870 LET Ut=Rt(RM+n U TO I) 

960 IF RH=41 AND F(23)=l THEN LET Rt I50)="SH":LET Mt='THE DOOR SLAMS SHUT! ":LET F (231=0 
980 IF 0B>6 OR 0B=0 THEN LET Ht="I CAN'T GET "+Wt; RETURN 

1190 IF C £31 = 1 AND QB=34 THEN LET Nt^'tMASIC OCCURS! IF RH<>45 THEN LET R«=lNT!RNDt64! 
1230 IF C( 121=1 AND Rfl=30 THEN LET Nt='DUS THE BARS OUT " : LET D*iRH+i)="HOLE IN WALL"! LET 
R*iR!t+l>="N$E" 

1280 IF 06=13 AND CU3)=1 AND ftH=43 THEN LET R» (RUM )=■*&": LET D$(RN+i!="STUD¥ WITH SECRE 
T R0DH';LET H*='Y0L! BROKE THE THIN WALL' 

1360 IF 06=1? AND C!J7)=1 AND C C 9 > = 1 AND C(8)=l THEN LET H*="IT CASTS A FLICKERING LIGHT" 
: LET F120M 

1380. IF m THEN LET FdOl-OiLET Mt="E*TIN6UISKED" 

1470 IF RN=2B AND 0B=25 AND F(25)=0 AND C! 181-1 THEN LET F(25»=1;LET R* (RM+ 1 J = "SEW" t LET D 
t(RM+ll="HtJGE OPEN DOOR": LET Ht="THE KEV TURNS 1 " 
1600 DIH R* (64,4) : DIM D$f64 f 41:DIH 0* I (W, 13) tDIH 



ZX81 (Timex 1000) version 



The program listing on the next six pages is 
a special version of Ha un ted House for the 
ZX8 1. It sticks as closely as possible to the 
structure of the main program, so you can 
follow the explanations of the program 
given throughout this book. The main 




Notice that the locations are 
numbered starting with 1, as 
the ZX8 1 will not allow you to 
use the zero box in an array. 



differences are that the ZX8 1 will accept 
only one statement on each line and it does 
not have the commands READ . . . DATA. 
The program has been rewritten to take 
account of these and other differences in 
the BASIC which you will see pointed out on 
the listing. 

These changes take up quite a lot of 
memory space. In order to make the game 
fit, the number of locations has 
been cut from 64 to 36 and other data 
changed slightly to fit with this. The ZX8 1 
version of the master plan is shown below. 
You can find out how the data is put into the 



ZX81 master plan 




ZX81 LISTING 

How to use the program 

If you look through this listing, you will 
notice that the data for the game is not 
incorporated in the program. The program 
works by asking you to type in the data and 
then saving the whole program, including 
the data, on tape. You only need do this 
once - next time you want to play the game, 
all you have to do is load the tape. 

Follow these instructions to use the 
program: 

1. Type in the program (very carefully). 

2, Type RUN 2440. 



10 GQSUB 2200 
20 CLS 

30 PRINT * HAUNTED HOUSE ADVENTURE" 

40 PRINT " " 

50 PRINT "VQUR LOCATION: * 
60 PRINT D$!Rm 
70 PRINT 'EXITS:' 
60 FOR 1=1 TO LEN(R»!R«>} 

90 print mmm to n;y; 

100 NEXT I 
110 PRINT 
120 FOR 1=1 TO 6 

130 IF LU)=RH AND FU) s THEN PRINT "YOU CAN SEE 
140 NEXT I 

150 PRINT ■====================• 



3. Now type in the data in the following 
order (see page 45 for lists of data): 

a) location descriptions 

b) routes 

c) object words 

d) verbs 

The program stops after each i 
you can re-enter any data which you put 
in incorrectly. If, for instance, you want to 
put the verb data in again, type GOTO 
2720. If you want to carry on to the next 
input section, type GO NT, followed by 
NEWLINE. 

4. Now SAVE the program on tape. This will 
save all the data as well. 

5. To start the game, type GOTO 10. DO 
NOT TYPE RUN, as this will destroy all 
the variables. 

6. Now input the starting positions of the 
objects. When you input the last of these 
( 1 8) the program will give you your 
starting location. 

1. For a new game, repeat steps 5 and 6. 
8.' 



HERE" 




160 PRINT f» 
VJ70 LET Nt="ttHAT ?" 
/TBO PRINT "WHAT HILL YDU DO NOB" 
1 190 IHPUT Qt 
200 LET Xt=" 
210 LET «="' 
220 LET VB=0 
230 LET 0B=O 
240 FOR 1=1 TO LDMfttM 

250 IF SKI TO I)=" " AND »="■ THEN LET XJ=Bt!T0 1-1) 
260 IF mm TO mm* • ANB X$<>"" THEN LET HS=»(I+1 
270 IF HO" THEN LET I=LEN<fl*)-l 
280 NEXT I 

290 IF Ht=" THEN LET X*=B$ 
300 IF LENtXI>>LEN(V*U)> OR Xt=" THEN GOTO 420 
310 LET F=LEN(v*il))-LEN(X*> 
320 LET X*=Xt+F«(T0 F) 
330 FOR 1=1 TO V 
340 IF lt=«(I) THEN LET VB=I 
350 NEXT I 

360 IF M=" OR LEN(«)>LEN(0t!lH THEN 60T0 430 



The ZX8 1 needs LET when a 
value is assigned to a variable. 





This section looks a bit 
different to the main program 
because the ZX8 1 does not use 
MID$, LEFT$ and RIGHTS to 
take a section of a string. 



J 



\ 



- 



T 

h 



the printed lines on the page. 
Make sure you don't press 
NEW1JNE before the end of 
the program line. 



370 LET F=LEN(Dt(l)}-LEN(Hf) 
380 LET M=«+F*(TQ F) 
390 FOR 1=1 TO It 
400 IF Ht=Q«I) THEN LET 0B=I 
410 NEXT I 

420 IF H$>" AND 06=0 THEN LET nl="THATS SILLY* 
430 IF VB=0 THEN LET VB=V+1 
440 IF Wt=" THEN LET «*="! NEED TN0 WORDS* 
450 IF VB>V AND 0B>0 THEN LET n$='Y0U CANT 
440 IF VB>V AND QB=0 THEft LET H*= , Y0U DONT HAKE SENSE" 
470 IF 0B=0 OR 0B>6 THEN BOTO 490 

480 IF VB(V AND 0B>0 AND C(0B)=0 THEN LET M='YQU DONT HAVE 
490 IF F126>=0 OR RM<>5 OR INT!RMD*3)=2 OR VB=21 THEN GOTO 520 
500 LET Ht="BftTS ATTACKING' 
510 BOTO 20 

520 IF RH=28 AND INTfRNfl*2)=l ANB F(24)=0 THEN LET F(27)=l 
530 IF fWM THEN LET LL=LL-1 
540 IF LL<1 THEN LET F(2O)=0 

^550 BOSUB 590*lVB=l)+640»(VB=2}+730*(vB>2 AND VB<iO)+M60*(VB=10 OR VB= 1 1 ) +1270* (VB=i2> 
+1350#(VB=13)+i440*(VB=14)+14a0»(VB=I5)+154O* IVB=14)M540tlVB=17)+!440*(V B=18M700*(VB=1?> 

>1760fiVB=20)M800f(VB=21} + 1850MVB=22I+1920*(VB=23}tl990*(UB=24I+2040tIVB=25)+2190*(VB=26). 

^40 IF LL=10 THEN LET Ht= , Y00R CANDLE IS MAKING' 
570 IF LL=l THEN LET H*= B VDUR CANDLE IS OUT" 
580 SOTO 20 
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PRINT "HORDE I KNOW" 
400 FOR 1=1 TO V 
410 PRINT y*m;v; 
620 NEXT I 
430 LET H*="* 
440 GOSOB 2160 
650 RETURN 

640 PRINT "YOU ARE CARRYING: ' 
670 FOR 1=1 TO G 

4B0 IF C(I)=1 THEN PRINT OKI!;", "; 
490 NEXT I 
700 LET «=" 
710 GOSUB 2140 
20 RETURN 
730 LET D^O 
740 IF 08=0 THEN LET &=VB-3 
750 IF 0BMB AND 0B<25 THEN LET B=0B-18 
760 IF Rfl=10 AMD 0=5 THEN LET 0=1 
770 IF Rfl=I0 AND D=4 THEN LET D=3 
7B0 IF RH=12 AND D=4 THEN LET D=2 
790 IF R«=12 AND 0=5 THEN LET 0=3 
800 IF Rn=22 AND 0=4 THEN LET 0=1 
810 JF RN=22 AND D=5 THEN LET D=2 
B20 IF RK<>32 OR D<>3 THEN GOTO 850 
830 LET Ht='ITS A LONG DROP" 



This line replaces the ON 
GOSUB line, which the ZX8 1 
can't do. It works like one long 
calculation, using the value of 
VB. The computer looks at 
each of the brackets containing 
"VB=" and puts a 1 if the 
bracket is true and a zero if it 
isn't. Try working through the 
calculation using a particular 
value of VB to see how it works. 





This replaces the tree section 
in the main program. Check 
the plan if you want to see what 
location 32 is. 



ZX81 LISTING 



> 



840 RETURN 

850 IF F(27)=0 OR RH<>34 THEN GOTO 880 
B60 LET «=" GHOSTS HILL NOT LET YOU HOVE" 
870 RETURN 

B80 IF RK<>29 OR C<!)=0 OR F(34)=l THEN GOTO 910 
870 LET H*=-HABIC6L BARRIER TO THE NEST" 
900 RETURN 

910 IF RM< 14 OR RH>I7 OR F(20!=l THEN GOTO 950 
920 IF RH=14 AND DO! AND D<>4 THEN SOTO 950 
930 LET M="TO0 DARK TO HOVE" 
940 RETURN 

950 IF CI 151=0 OR RH<>36 THEN GDTO 980 
940 LET HI='THE BOAT IS TOO HEAVY" 
970 RETURN 

980 LET RL=LEN!Rt(RH) ) 
990 LET QM=R« 
1000 FOR 1=1 TO RL 
1010 LET U*=Rt(RH)(I TO I) 
1020 IF Ul=*tl" AND D=l THEN LET OH=0H-6 
1030 IF Ut="S" AND D=2 THEN LET 0H=OH+6 
1040 IF tl*='K' AND D=3 THEN LET QH=0H-1 
1050 IF Ut="E" AND DM THEN LET 0H=0R+1 
1060 NEXT I 
1070 LET HJ="OK" 

1080 IF RN=QH THEN LET Ht='CANT GO THAT KftV* 
1090 LET RH=OH 

1100 IF D<1 THEN LET H*="GD WHERE ?■ 
1 110 IF RH<>25 OR F(23)=0 THEN GDTO 1150 
1120 LET Rl!31)=" 

1130 LET Hi="THE DOOR SLAH5 SHUT BEHIND YOU" 
1140 LET F(23)=0 
1150 RETURN 

1160 IF 0B>0 AND OB<=G THEN GOTO 1190 
1170 LET ftt="YOU CANT SET "+Nt 
1160 RETURN 

1190 IF LIQBIORH THEN LET Ht="ITS NOT HERE" 
1200 IF F(0B)=1 THEN LET «I="NH6T "+«+■ ?* 
1210 IF C(0B)=1 THEN LET H$=*YOU ALREADY HAVE IT" 
1220 IF LIOBJORH OR F(OB)=I THEN GOTO 1260 
1230 LET C(QB)=1 
1240 LET Ht='YOU HAVE THE *+N$ 
1350 LET L(0B)=37 
1260 RETURN 

1270 IF RH<>27 OB I0BO2B AND 0BO29) THEN GDTO 1300 
1280 LET Ht=" DRAWER OPEN' 
1290 LET F(171=0 

1300 IF RH=16 AND 0B=25 THEN LET Ht="IT IS LOCKED" 
1310 IF RH<>24 OR 0BO32 THEN GDTO 1340 
1320 LET Hi="CREEPY" 



Check each line before you 
press NEWLINE. It is much 
easier to try and spot your 
mistakes as you type than 
having to search through t he 
whole listing to find them. 





Imagine your adventure is 
going to be sold in a famous 
chain of shops and design 
and write an atmospheric 
insert for its cassette box. 
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Check the two versions of 
Haunted House against each 
other to see where the 
programs differ. 



Don't forget, you can add 
extra verbs without adding 
extra subroutines. You 
could add LOOK for 
example and make it use 
the EXAMINE subroutine. 




LET F(2)=0 
RETURN 

IF QBO30 THEN GOTO 1380 
LET Mt=" SOUTHING HERE' 

LET FC18)=0 ^ 

IF 0B=2S OR 0B=29 THEN LET M=" THERE IG A DRAWER" 
IF 0B=33 OR 0B=5 THEN G0SU6 1440 
IF Rtt=27 AND 0B=35 THEN LET M="S0NETHING BEYOND" 
IF QB=32 THEN GOGUB 1270 

IF RH=9 AND 0B=31 THEN LET M="THATS DISSUGTING" 
RETURN 

IF R«=2t AND DB-33 THEN LET Ht-"THEY ARE DENDNIC WORKS" 
IF (0B=3 OR QB=36> AND C!3>=1 AND F(34)=0 THEN LET Mt="USE 
tfORD NETH CARE - XZANFAR' 

IF CI5)=1 AND 0B=5 THEN LET flt='AN ALIEN TONGUE" 
RETURN 

LET M="0K "+« 

IF C(3)=0 OR 0BO34 THEN GOTO 1520 

LET t»='NAGIC OCCURS" 

IF RH<>2? THEN LET RM=INT(RMD*3£)+1 

IF C13)=l AND DB=34 AND RH=29 THEN LET F(34)=l 
i RETURN V 

!F C! 121=1 THEN LET N$="Y0U HAVE HADE A HOLE" 
i RETURN 

IF CU4KM AND RN-11 THEN LET M$="THIS IS NO TlfJE FOR GAMES 
I IF QB=14 AND CU4)=t THEN LET M="Y0U SHJNS IT" 

IF QB=13 AND C(13)=l THEK LET M*="HHO0SH" 
l IF 0BOI3 OR CU3)=0 OR R«<>27 THEN GOTO li30 

LET R*iR(U="NN" 

LET DtlR!^ "STUDY WITH SECRET ROOM- 
LET «*='Y0U BROKE THROUGH" 
I RETURN 

IF RM<>32 OR CI14KM DR 0BO14 THEN SDTO 1600 
I LET M*="BDISG DOWN." 
I LET Rfl s RH-l 
) SOTO 1490 
! LET H$=" WHERE TO 7" 
I RETURN 

I IF 0B=!7 AND C(17)=l AND C(B)=0 THEN LET H*="IT KILL BURN YOUR HANDS' 
I IF 0B=17 AND CU7)=1 AND C(91=0 THEN LET Ht="NHAT HITH ?" 
I IF 0BO17 OR Cil7)=0 OR C!9)=0 Oft C!B)=0 THEN GOTO 1750 
) LET Ht="IT CASTS A FLICKERING LIGHT" 
I LET F(20!=l 
! RETURN 

I IF F(20)=0 THEN GOTO 1790 Perhaps you can 

> LET N*=" EXTINGUISHED' I think of abetter ver 

I LET FI20i=0 
) RETURN 

I IF 0B=26 AND CI 161=1 THEN LET «='HISSSS" 





than"unlight". 
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ZX81 LISTING 



1310 IF 08026 OR GU6K>1 OR F (261=0 THEN GOTO 1840 
1B20 LET «$='PFFT - EOT THEM" 
3830 LET F (261=0 
ViB40 RETURN 

MB50 IF BBO10 Oil C(10)=0 OR C(li)=0 THEN BGTO 1910 
1860 LET F(24)=l 
1870 LET W=* SNITCHED OH" 
1880 IF F (27) =0 OR F(24>=0 THEN 60TG 1910 
1B90 LET n*="YQU VftCUUHED THEM UP" 
3 90S LET F (271=0 

>L?10 RETURN 
1920 IF RK=27 AND (0B=27 OR 0B=28) THEN GOSUB 1270 
1930 IF mm OR 08O25 OR F(25)=l Oft C (181=0 THEN SOTO 19B0 
1940 LET F(25)=l 

1950 LET Ht="THE KEY TURNS - CLUNK" 

1960 LET Ri(RH)="SEK' 

1970 LET D$(Rn)="HU6E OPEN DOOR" 
980 RETURN 

1990 IF C(OB)=0 THEN SOTO 2030 
2000 LET C(GB)=0 
2010 LET M="DONE" 
2020 LET L(OB)=RM 
030 RETURN 
2040 LET S=0 
2050 FOR 1=1 TO 6 
2060 IF CUM THEN LET S=S+J 
2070 NEXT I 

2030 IF S=17 fiND C( 151=0 AND RN<>31 THEN PRINT "YOU HAVE EVERYTHING 
RETURN TO PORCH FOR FINAL SCORE" 
2090 IF S017 Oft mm THEN SOTO 2323 
2100 PRINT "DOUBLE SCORE" 
2110 LET S=S*2 
2120 PRINT 'YOUR SCORE "IS 
2130 IF S<18 THEN SOTO 2160 
2140 PRINT "NELL DONE - YOU HAVE FINISHED" 
2150 STOP 

2160 PRINT "PRESS NEW LINE TO CONTINUE" 
2170 INPUT Qi 
2180 LET N*="OK" 

190 RETURN 
2200 FOR 1=1 TO M 
2210 LET F(I)=0 
2220 LET C(I)=0 
2230 NEXT I 
2240 LET R*(31)="r 
2250 LET R$(27)="N" 
2240 LET R*!16)="NE" 
2270 LET Dt(27)="STUDY, DESK AND NALL" 
2280 LET D*(16l="HfiLL HITH HUGE NOODEN DOOR 



V2C 
f 21 





When you DIMension a string 
array on the ZX8 1, you need to 
tell the computer the length of 
the longest item you are going 
to store in it. The computer then 
reserves 36 (or however many) 
spaces of this length. This 
wastes memory space if you 
have one item which is much 



Lines 2240 to 2380 reset the 
variables which have been 
changed during a 
you can play a new game. 



2290 
2300 
2310 
2320 
2330 
2340 
2350 
2340 
2370 
2380 
2390 
2400 
2410 
I 2420 
V.2430 
f 2440 
2450 
2460 
2470 
| 2480 
2490 
1 2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 



LEI 


Ht="QK" 


LET 


FI18N 


LET 


FtUW 


LET 


F(27)=l 


LET 


F(2)=l 


LET 


F!26)=l 


LET 


F(23)=l 


LET 


LL=60 


LET 


mm 


LET 


F$=" 


FDR 


1=1 TO 6 



DESCRIPTIONS 



13 SPACES 

/ 



PRINT I 
INPUT UI> 
NEXT I 
RETURN 
DIN fi*!36,4) 
DIN D*!36,30) 
LET V=25 
DIN Vt!V,9) 
LET H=36 
DIN 0*(«,i3) 
DIH CiH) 
DIN F(N) 
LET E=18 
DIN L(6) 

PRINT "DESCRIPTIONS* 

FOR 1=1 TD 36 

PRINT 3 

INPUT DS(I) 

NEXT I 

STOP 

PRINT "ROUTES" 
FDR 1=1 TD 36 
PRINT I 
IHPUT R*(I) 
HE XT I 
STOP 

PRINT "OBJECTS" 
FOR 1=1 TO H 
PRINT I 
IHPUT 0$II) 
NEXT I 
STOP 

PRINT "VERBS" 
FOR N TO V 



2740 PRINT I 
2750 INPUT Ut!I) 
2760 NEXT I 
2770 STOP 



V 



ENTRANCE TO KITCHEN, KITCHEN WITH GRIMY 
COOKER, SCULLERY, DUSTY ROOM, REAR TURRET 
ROOM, CLOSET WITH COAT, BACK HALLWAY, DARK 
ALCOVE, SMALL ROOM WITH RUBBISH, SPIRAL 
STAIRCASE, WIDE PASSAGE, SLIPPERY STEPS, 
HALLWAY TO REAR, POOL OF LIGHT, VAULTED 
HALL, HALL WITH HUGE WOODEN DOOR, TROPHY 
ROOM, CELLAR ROOM, FRONT HALL, SITTING 
ROOM, SECRET ROOM, STEEP MARBLE STAIRS, 
DINING ROOM, VAULT WITH COFFIN, FRONT LOBBY, 
LIBRARY OF EVIL BOOKS, STUDY WITH DESK. HOLE 
IN WALL, COBWEBBY ROOM, VERY COLD CHAMBER, 
SPOOKY ROOM, FRONT PORCH, TOP OF FRONT 
TOWER, SLOPING CORRIDOR, UPPER GALLERY, 
BOAT HOUSE . SOGGY PATH 




SE,WE, W,SE,WE,W, 

NS, SE, WE, NWUD, SE, SWUD, 

NS,NSE, WE, WE, NSW, NS, 

NSE,NSW,S,NSUD,N,N, 

N.NE, W.NSE, WE.SW, 

N, WE, WE.NW, E,NW 



The commas show 
where you should press 
NEWLINE between data 
items. DON'T TYPE THE 
COMMAS. 





PAINTING, RING, MAGIC SPELLS, GOBLET, SCROLL, 
COINS, STATUE, CANDLESTICK, MATCHES, 
VACUUM, BATTERIES, SHOVEL, AXE, ROPE, BOAT, 
AEROSOL, CANDLE, KEY, NORTH, SOUTH, WEST, 
EAST, UP, DOWN, DOOR, BATS, GHOSTS, DRAWER, 
DESK, COAT, RUBBISH, COFFIN, BOOKS, XZANFAR, 
WALL, SPEL LS 

VERBS V 




HELP, CARRYING?, GO, N, S, W, E, U, D, 
GET, TAKE, OPEN, EXAMINE, READ, SAY, 
DIG, SWING, CLIMB, LIGHT, UNLIGHT, SPRAY, 
USE, UNLOCK, LEAVE, SCORE 



STARTING LOCATIONS FOR OBJECTS X^ - 

7 zrrr^z=^~^~ 1 

(You must type in this set of data each time you run 

the program.) 

30,24,21,32,5,8, 

16, 26,2, 13, 14,36, 

18, 11,35, 3, 27,6 



Extra tips and hints 




On some computers you can put a % sign 
after number variable names to show that 
you only want to put integers or whole 
numbers in them (numbers without 
anything to the right of the decimal point 
that is). So variable V becomes V% and so 
on. You can do this on the BBC, TRS-80, 
Dragon, TRS-Color and Oric. It is useful to 
do this because it saves memory space and 
increases the speed by as much as 50% , 
The speed is particularly noticeable when 
the computer is executing long loops. 



2. Think about screen presentation 

If you have enough spare memory, you 
could improve the way the game looks on 
the screen. You could add a graphics 
routine for the opening title for instance and 
make the text flash on and off at particular 
points in the game, such as when the candle 
flickers or the ghosts appear. The text need 
not be printed at the edge of the screen, nor 
need it all be the same colour. You could 
make use of coloured borders and 
backgrounds too. 



3. Watch your spelling 

If you are not quite sure how to spell a word 
you want to use in the game, check it in a 
dictionary. Your computer doesn't know 
how to spell and will store whatever you tell 
it in its memory. This could be very 
frustrating for the player who is using the 
correct version and keeps getting error 
messages because the computer doesn't 
recognize the word. 




Some adventure games are a bit boring to 
play because everything happens in the 
same place. Try to make sure there are 
46 interesting things all through the game. 




When you are writing a program as long 
and complicated as an adventure, it is a 
very good idea to put REM statements in 
front of each section. You are quite likely to 
get confused as to which section is which if 
you don't. When you have finished the 
program, though, take the REMs out - they 
take up memory space, slow the program 
up and allow unscrupulous players to cheat. 



6. Use helpful variable names | 

Try to name your variables so that it is easy 
to remember what each one is e.g. OB for 
objects, MK for mistakes, and so on. If you 
have plenty of memory space and your 
computer will allow you, it is a good idea to 
use long variable names to help you 
remember what each variable is, e.g. 
instead of V use VERB. Make a list of your 
variables and what they are anyway, so you 
don't mix them up while you are writing the 
program. 



| 7. Keep it simple | 

Don't be too ambitious with your first 
games. A simple, well-thought-out game 
will be more fun to play than a confused, 
complicated one. Not everyone wants to 
play a game which goes on for days. 



| 8. Keep it friendly | 

When you have written your game, look at 
the comments to make sure they are not 
ambiguous or misleading. Instead of "TOO 
DARK", for instance, you could say "YOU 
NEED A LIGHT TO GO HERE". Remember, 
something that is obvious to you will not be 
at all obvious to a player. Make some of 
your comments funny too as this will help 
the player feel the computer is really talking 
to him. 



Answers to puzzles 



Detective game puzzle (page 1 3) 

Here are some suggested solutions for the problems in the detective game. See how 
they compare with the solutions you thought of. 

1. You will only see the hair if you instruct computer to examine coat. You cannot take 
hair unless you have a clean envelope to put it in. 

2. You need a key to open the drawer, a magnifying glass to see the thread and a second 
clean envelope to put it in. 

3. You need plaster and a container of water to make a plaster cast of the footprint. 

4. You need talcum powder to show up prints and sticky tape to lift print off surface to 
take away. 

5. You need a portable blood analysis kit (described in game as a box containing bottles 
and other scientific equipment). 

6. You need a handkerchief to pick up the stick and a polythene bag to carry it in. 
Adventure brain teasers (page 1 5} 

Remember there are no "correct" answers to these puzzles. Here are some suggested 
solutions. 

1 . Lift the carpet and find a trap door, 

2. Use the handkerchief as a mask (assuming drowsiness is caused by a gas in the 
room), look inside rucksack and find a flask. Open the flask and find black coffee. 
Drink coffee. 



4. Throw the dessert (which happens to be custard pie) in the arch-villain's face. Grab 
the remote control and escape. 

Puzzle (page 28) 

Here is how you can change the program to limit the number of objects that can be 
carried at one time. 

You need two new variables, here they are called CO (which stands for "carried 
objects") and CL (which stands for "carrying limit"). Add these to the end of line 70 like 
this: 

70...:CO=0:CL=8 

You then need to tell the computer to add one to CO in the GET routine when the 
player picks up an object and subtract one from it in the LEAVE routine if he drops an 
object. Do this by adding to the ends of lines 10 10 and 1 490 like this: 
1010.. .:CO=CO+l 
1490...:CO=CO-1 

Now add a new line to the GET routine to check if CO equals the limit before 
proceeding with the rest of the routine. 

(CL need not be 8, but it cannot be less or the player would not be able to carry all the 
treasures to the finish.) 

Going further 

Once you have written an adventure, you could join the BBC Micro Adventure/Fantasy 
Club. This is a postal club and it provides a library of adventure and fantasy games written 
by members for the use of other members. To find out more, write to: 
BBC Micro Adventure Club, 29 Blackthorne Drive, Larkfield, Kent ME20 6NR, England. 
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